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Section  1 


INTRODUCTION  AND  SUMMARY 


SCOPE 

In  this  report  the  work  performed  during  Phase  I  of  the  NRL  contract  on  the 
discrimination  of  acoustic  emissions  (AE)  is  described.  The  scope  of  Phase  I  was  lim¬ 
ited  to  three  basic  areas:  -i>"  •  /-  *  *  / 


•  Analytical  Development.  -The  analytical  development  and  assessment  of  digital  sig¬ 
nal  processing  techniques  for  AE  signal  dereverberation,  noise  reduction,  and 
source  characterization  ^  j 

•  Computer  Simulation.  --The  modeling  and  verification  of  some  aspects  of  key 
selected  techniques  through  a  computer-based  simulation  j  *■-»  ^  f  -  > 

•  Signal  Propagation  Characteristics.  -The  study  of  signal  propagation  physics  and 
their  effect  on  received  signal  characteristics  for  relevant  physical  situations  .  — — 


The  highlights  of  those  results  are  summarized  in  the  rest  of  this  section,  and  de¬ 
scribed  in  detail  in  Appendices  A  and  B. 


Section  2 


SIGNAL  PROCESSING  TECHNIQUE 


The  analytical  works  presented  in  the  proposal  are  further  developed.  The  theory 
is  generalized  to  deal  with  a  much  wider  class  of  signals.  Computer  simulations  and 
digital  computations  are  performed  to  verify  the  results.  The  main  points  are  summa¬ 
rized  below;  details  may  be  found  in  Appendix  A. 

2.1  Homomurphic  Processing 

The  basic  theory  of  dereverberation  by  homomorphic  deconvolution  is  verified.  In 
addition,  a  number  of  assumptions  made  in  deriving  the  basic  theory  have  been  re¬ 
moved  so  that  the  deconvolution  technique  is  shown  to  be  applicable  to  a  much  wider 
class  of  signals. 

2.1.1  Amplitude  and  Arrival  Time  Correlation 

The  effect  of  the  correlation  between  the  amplitude  and  the  time  of  arrival  of  the 
pulses  has  been  analyzed.  It  was  found  that  if  the  amplitude  a,  and  the  arrival  time  t, 
of  the  pulses  are  not  independent,  i.e.,  p  ^  0,  a  nonzero  term  will  be  introduced  in 
the  cepstrum  of  the  pulses  in  the  region  r  -  0,  so  that  the  cepstrum  will  be  broadened 
instead  of  peaking  at  the  origin  r  —  0.  This  non-zero  term  is  given  by 

s(t)  +  y  g(r)  *g(r)  +  ■  ■  ■ 


_  a, 

where  £(t)  —  exp(a,  r/p)  U(r)  +  —  8(r),  U(t)  being  the  unit  step  function. 

p 

2.1.2  Pulse  Shapes 


The  pulse  shape  is  no  longer  restricted  to  be  Gaussian.  It  is  shown  that  perfect 
separation  of  cepstra  is  possible  for  all  pulse  shapes  which  are  Hermite^expandable. 

Since  Hermite  expansions  exist  for  all  square-integrjble  functions  where  f f2(t)dt  ex- 

o 

ists,  cepstral  deconvolution  can  be  applied  to  a  broad  class  of  pulse  shapes. 

2.1.3  Arrival  Time  Distribution 


The  restriction  of  the  pdf  of  the  arrival  time  to  be  either  a  Gaussian  or  an  ideal  im¬ 
pulse  is  removed.  It  is  shown  that  for  all  the  pdfs  which  can  be  represented  by  a 
Graham-Charlies  series  or  an  Edgeworth  series,  the  log  of  the  characteristic  function  is 
so  smooth  that  its  transform  inverse  produces  only  singular  functions  (such  as  delta, 
doublet,  or  triplet  functions).  Under  such  circumstances  perfect  separation  of  rever¬ 
beration  and  signal  statistics  is  possible  at  least  in  the  continuous  domain. 

2.1.4  Two-Dimensional  Statistics 


In  a  case  in  which  the  average  of  the  amplitude  of  the  pulses  is  zero,  the  one¬ 
dimensional  pdf  approach  is  not  appropriate.  The  problem  can  be  restated  in  terms  of 
its  two-dimensional  statistics.  Analysis  indicates  that  on  the  assumption  that  the  ampli¬ 
tude  and  the  time  of  arrival  are  independent,  perfect  separation  of  signal  and  rever¬ 
beration  using  two-dimensional  statistics  is  possible  for  the  general  class  of  pdf  and 
pulse  shape  mentioned  above. 


2.1.5  Phased- Array  Imaging 

The  mathematics  involved  in  using  a  phased  array  to  image  multiple  (two  or  three) 
sources  have  been  worked  out.  Assuming  complete  suppression  of  the  side  lobes,  the 
closed  form  solution  for  the  transfer  function  Hy( a>)  for  the  path  from  source  j  to 
sensor  /  is  found  to  be  given  by 

Ki(o>) 

"  /x'  j~F177\ 


where 

Ai 

KM) 


gain  of  sensor  / 

Fourier  transform  of  the  dot  product  between  the  array  pattern  and  the 
signal  at  sensor  i  with  the  array  “looking”  at  source  j 


The  incomplete  suppression  of  the  side  lobes  of  the  phased  array  gives  rise  to  errors  in 
the  calculations  of  the  transfer  functions  as  given  above.  An  iterative  method  was  de¬ 
veloped  to  improve  the  accuracy  of  the  transfer  functions  by  using  each  previously  cal¬ 
culated  estimate  of  Hs  to  improve  the  next  approximation.  The  theory  behind  this 
procedure  is  that  with  multiple,  say  two,  sources  in  the  medium,  the  small  error  in 
measuring  the  Hn  s  is  a  known  function  of  the  Hi2s  and  vice  versa.  The  first  estimate 
of  the  Hns  is  plugged  into  this  known  function  to  reduce  the  error  in  the  Hi2  approxi¬ 
mations.  Now  with  an  approximation  for  the  Hi2s,  the  Hn  values  can  be  recalculated 
with  a  smaller  error.  This  process  can  be  iterated  until  the  changes  in  Hn  and  Hn 
from  one  iteration  to  the  next  are  negligibly  small. 

Once  the  path  transfer  functions  Hjjiot)  are  calculated,  deresonation  is  performed 
by  simply  multiplying  the  signals  from  the  sensors  by  the  inverse  of  these  transfer 
functions. 

2.2  Error  Propagation 

Fluctuations  in  moment  estimates  or  other  averaging  functions  that  operate  on  real 
stochastic  data  add  a  certain  amount  of  noise  to  the  results.  The  tradeoffs  between  the 
number  of  data  records  averaged  and  the  uncertainty  in  the  resulting  cepstra  where  re¬ 
verberation  must  be  discerned  and  separated  have  been  analyzed.  With  the 
simplification  that  the  average  of  the  Fourier  transform  of  the  pulses  ffpi(a>)  —  1,  and 
the  estimator  K(a>)  (average  of  the  Fourier  transform  of  the  measured  waveforms)  is 
unbiased,  the  error  term  due  to  the  noise  n(t)  is  given  by: 

A[l0B  r<o.)  |  “  TCT 


where  N(<o)  is  the  Fourier  transform  of  n(t).  Relaxing  the  restriction  that  Hpj(u>)  =  1 
will  only  increase  the  error  slightly.  The  term  affected  is  the  last  one  in  the  above 
equation. 

Noise  in  the  data  also  affects  the  phase  unwrapping  routine  in  computing  the  cep- 
strum.  The  phase  noise  could  induce  a  discontinuity  in  the  unwrapped  phase  of  2n 
and  cause  an  erroneous  unwrapped  phase  to  be  computed. 

In  this  project  an  upper  bound  on  the  probability  of  an  incorrect  phase  and  cep- 
strum  given  an  amount  of  random  phase  noise  due  to  measurement  and  numerical 


roundoff  error  was  derived,  which  indicates  the  amount  of  averaging  on  the  ensemble 
records  and  the  necessary  length  T  of  each  record  to  achieve  that  bound.  Let  x(t) 
and  y(t)  be  two  stationary  random  processes  representing  the  lumped  phase  noise. 
The  probability  of  a  cepstral  error  is  given  by  Q  ( k )  where  Q  (.)  is  the  area  under  the 
Gaussian  tail,  k  —  R^irVa^ir,  T),  R^ir)  being  the  cross-correlation  of  the  random 
processes  representing  the  lumped  phase  noise,  and  o-^fr,  T)  is  given  by 

T 

crly(j,T)  —  -3-  J*  (T—  v)[P%y  ( r,u )  —  R%y(,T)]dv 
*  0 

P*(T,u-t)  -  <x(t)y(t  +  r)x(u)y(u  +  t)> 


crxy{j,T)  also  puts  a  limit  on  the  deviation  of  every  point  on  the  unwrapped  phase 
from  its  true  value  and  can  be  used  to  limit  the  phase  noise  for  cases  where  no  er¬ 
roneous  jogs  are  present  from  improperly  selected  ambiguities. 

2.3  Volterra  Filtering 

Nonlinear  filters  were  developed  to  suppress  background  noise  in  the  raw  data  y(t) 
to  produce  a  signal  x(t)  which  is  as  close  as  possible  to  the  desired  impulse  signal 
x(t).  The  equations  governing  the  design  of  an  optimal  quadratic  nonlinear  least 
mean  square  estimation  filter  (QLMSE  filter)  with  kernels  A®  (t)  and  A2°  (t)  were 
derived.  The  formulation  is  based  on  a  truncated  Volterra  series,  and  resulted  in  the 
following  pair  of  integral  equations: 


J*  A?  (r)  -  R$  (t,ti,t2)  dr  +  J*  /  ^  A®  (t|,t2) 

—00 

Rwyy  (ti,  t2,  rj,  r2)  dr  1  dr2  =*  R$( 0,  t1;  t2) 


for  T\  ^  0,  t2  ^  0 


where 


Rm  Tl»  t2^  "  yU  -  t)  y(t  -  Tt)  yU  -  r2) 

Ry$y  (ti,  t2,  t[,  r2)  -  y(t  -  y(t  -  t2)  y(t  -  TX)  y(t  -  r2) 

R$  (0,  r j ,  t2)  -  x(t)  y(t  -  t  1 )  y{t  -  r2) 

For  digital  computations  the  discrete  version  of  the  optimal  Volterra  filters  must  be 
used.  By  the  use  of  a  multidimensional  Volterra  expansion,  one  can  write  the  most 
general  nonlinear  recursive  HR  quadratic  filter  as 

y,  -  I  V”  XM  +  I  &(1)  X-k 

j- 0  fc-i 

L  L 

+  i  i  &  *,-j,  *-j, 

j<-0  j-,-0 


+  X  X  W?*,  >/-*,  y.-k, 

*,-l  *2-l 
N  N 

+  X  X  ”pi?</2  X‘-P\  y>-92 
P\- o  ?2_1 

The  quadratic  terms  contain  feedforward,  feedback,  and  feedforward-feedback  expres¬ 
sions,  respectively.  The  errors  due  to  roundoff  and  coefficient  quantization  can  be  es¬ 
timated  using  methods  similar  to  the  one  employed  by  Liu  for  linear  systems. 

An  adaptative  method  was  also  devised  for  determining  an  optimum  Volterra  pred- 
icator.  The  procedure  is  to  adjust  a  number  of  kernels  adaptively  to  minimize  the 
difference  between  the  output  of  the  predictor  and  the  confirmed  value  of  the  mea¬ 
surement  at  a  later  time. 

2.4  Pattern  Recognition 

The  pulse  shape  features,  amplitude  statistics,  and  event  statistics  are  used  to 
characterize  the  event  that  generates  the  pulses. 

To  represent  the  continuous  waveforms  with  a  discrete  number  of  coefficients 
which  can  be  ranked-ordered  according  to  their  importance  in  representing  these 
waveforms,  the  Karhunen-Loeve  expansion  is  used.  This  expansion  is  an  orthogonal 
series  which  has  the  property  that  the  coefficients  of  expansion  are  uncorrelated.  In 
this  way  the  basis  functions  provide  a  maximal  information  content  about  the  pulses. 

The  Karhunen-Loeve  basis  function  for  each  kind  of  event  which  generates  the 
waveforms  x(t)  are  obtained  by  solving  the  following  eigenvalue  problem, 

T 

-  J  Kx(t,u)<f>j(u)du 
o 

where 

Kx(t,u)  -  £’|u(0-x(/)][x(u)-jf(«)] 


To  characterize  each  pulse,  its  expansion  coefficients  in  the  basis  functions  for  each 
kind  of  event  are  computed.  The  “distances”  between  these  coefficients  and  those  of 
the  different  the  basis  of  the  closest  “distance”  using  Bayes  rule. 


Section  3 


SIGNAL  PROPAGATION  PHYSICS 


A  brief  overview  of  the  signal  propagation  effort  is  given  below;  details  may  be 
found  in  Appendix  B. 

In  order  to  provide  some  guidance  for  the  subsequent  expermental  verification  of 
the  results  of  Phase  I,  an  effort  was  made  to  understand  and  characterize  the  signal 
propagation  physics  under  physically  representative  conditions.  That  effort  provided 
the  basis  for  the  experimental  plan  subsequently  executed  under  Phase  II. 

In  general,  the  specimen  ringdown  transfer  function  depends  in  a  very  complicated 
way  on  many  factors:  the  nature  of  the  exciting  signal,  the  geometry  and  material 
characteristics  of  the  specimen,  and  the  direction  and  location  of  the  transducer.  The 
physics  of  wave  propagation  is  analyzed  to  develop  insights  on  these  phenomena.  Two 
methods  of  analysis,  the  modal  analysis  and  the  generalized  ray  theory,  are  described 
and  employed  for  such  purpose. 
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ABSTRACT 


The  general  discipline  of  phased  array  imaging  presents  a 
variety  of  probla®  which  depend  on  the  specific  application.  To 
date,  phased  array  antennas  have  been  used  successfully  for  imaging 
in  audio,  ultrasonic  and  radar  frequency  ranges.  Some  of  the  prob¬ 
lems  that  exist  in  these  various  disciplines  are  the  presence  of 
grating  lobes  and  aperture  side  lobes,  lack  of  depth  resolution  when 
imaging  in  the  far  field,  narrow  elemental  angular  beam-width,  poor 
interelement  isolation,  and  in  some  cases  the  complete  loss  of  the 
image  due  to  the  presence  of  multiple  echos  in  the  signals  received 
by  the  array  elements. 

Grating  lobes  can  be  eliminated  by  reducing  the  array 
element  spacing  to  less  than  one  half  the  wavelength  of  the  travelling 
wave  in  the  material  being  imaged.  However,  in  designing  multi¬ 
element  phased  arrays  it  is  always  desirable  to  keep  the  number  of 
elements  in  the  array  to  a  minimum.  This  results  in  economic  sav¬ 
ings  in  the  construction  of  the  array  and  in  computational  savings 
in  the  processing  of  the  collected  data  for  the  reconstruction  of 
images.  With  this  reduction  in  the  number  of  elements  comes  an 
immediate  trade-off  in  the  array's  performance  between  image  resolu¬ 
tion  and  the  introduction  of  ambiguities  into  the  image  through  the 
grating  lobes.  The  negative  effects  of  grating  and  side  lobes  and 
also  the  poor  resolution  iu  the  near  field  can  be  reduced  by  optimally 
adjusting  the  interelement  spacings,  shading  the  element  gains  and 
varying  the  element  phases  of  the  array.  The  array  element  signals 


which  contain  echos  (a  problem  arising  in  the  nondestructive  testing 
of  solids)  can  be  dereverberated  through  the  use  of  homomorphic 
filtering  before  an  image  is  made.  This  method  works  well  when  cer¬ 
tain  conditions  are  met. 

When  all  these  methods  are  appl.'ud  simultaneously,  signif¬ 
icant  improvements  in  the  resolution  of  phased  array  images  can  be 
observed.  This  work  examines  the  problems  listed  here  and  ascertains 
viable  solutions  which  are  demonstrated  through  simulations. 


INTRODUCTION  AND  HISTORICAL  REVIEW 


In  many  applications  ol  sonic  imaging  echos  resulting  from 
wall  reflection  and  resonance  due  to  internal  wall  reverberating 
transmission  are  significant  sources  of  distortion.  These  echos  and 
reverberations  produce  many  false  target  images  which  are  usually 
indistinguishable  from  true  target  images  using  simple  ad  hoc  correl¬ 
ation  techniques.  Of  course,  propagation  through  a  linear  reverber¬ 
ant  medium  may  be  modeled  by  a  transfer  function  or  linear  filter 
for  which  an  inverse  exists-  Unfortunately,  this  filter  is  not  known 
a  priori  and  it  must  be  estimated  from  stochastic  data. 

The  purpose  of  this  study  is  to  devise  a  scheme  to  deres- 
onate  the  signals  received  at  the  individual  elements  using  some 
information  about  the  source  signal  itself  and  its  power  spectrum. 

This  will  be  accomplished  with  the  use  of  homomorphic  deconvolution. 

In  addition,  techniques  will  be  investigated  to  remove  false  signal 
sources  due  to  echo  reverberations  in  the  presence  of  two  or  more 
real  signal  sources. 

Also,  a  set  of  algorithms  and  programs  will  be  presented 
for  the  implementation  of  the  signal  processing  routines  developed  in 
this  study  for  their  use  on  a  host  computer  to  determine  the  locations 
of  the  sources.  A  complete  set  of  simulations  is  included  which  test 
out  the  algorithms  and  programs  and  extensively  use  computer  graph¬ 
ics  to  present  the  results  of  these  simulations. 


This  study  represents  a  continuation  of  earlier  analysis 
of  phased  array  processing  techniques  for  sonic  imaging  of  passively 
emitted  signals  performed  in  1979.  In  the  earlier  study  [1]  analysis 
was  done  on  degradation  and  maximum  error  of  the  signal  due  to  pro¬ 
cessing  on  less  than  the  full  set  of  cross  correlation  terms.  Also 
studied  was  the  optimization  of  the  array  by  adjustment  of  the  gains, 
positions  and  individual  phases  of  the  array  elements.  The  results 
of  this  earlier  study  are  shown  to  be  extremely  relevant  to  homomor¬ 
phic  array  processing.  The  final  results  of  this  thesis  supplement, 
extend,  and  summarize  the  improvement  possible  in  array  images  by 
applying  these  optimization  techniques.  Along  with  the  theory  of 
array  optimization  are  presented  results  of  many  simulations  of 
optimized  one  and  two  dimensional  arrays  also  with  extensive  use  of 
computer  graphics. 

Ultrasonic  and  audio  imaging  using  multi-element  phased 
array  antennas  encounter  many  problems  which  are  not  present  in  their 
radar  and  sonar  counterparts.  In  addition  to  the  ambiguities  which 
arise  from  grating  and  aperture  sidelobes  (inherent  in  arrays 
designed  to  reduce  the  total  number  of  elements  for  material  and 
processing-time  savings)  the  utilization  of  such  arrays  in  noninfin¬ 
ite,  bounded  volumes  gives  rise  to  ambiguities  due  to  echos  reflected 
from  the  container  boundaries.  Hence,  the  source  signals  are  contam¬ 
inated  with  reverberation  noise.  Added  to  this  are  other  ambiguities 
arising  from  false  foci  which  appear  when  two  or  more  coherent  sources 
are  present ,  using  accumulative  correlation  array  processing  techniques 


(ACAP)  [1].  Concentrating  on  the  signal  reverberation  problem  and 
the  multiple  source  problem,  methods  for  resolving  these  ambiguities 
will  be  found  using  only  certain  available  information  about  the 
general  statistics  of  the  signals,  little  or  no  knowledge  of  the 
geometry  of  the  containers  and  homomorphic  processing. 

To  date,  the  literature  is  filled  with  articles  on  the  many 
varied  aspects  under  the  general  topic  of  phased  array  imaging.  They 
include  design  of  individual  piezoelectric  elements  and  arrays, 
design  of  hybrid  electronic  chips  to  drive  arrays,  processing  algo¬ 
rithms  of  special  array  configurations,  performance  of  radar  and 
waveguide  arrays,  reduction  of  errors  in  bandlimited  arrays,  effects 
of  quantization  error  in  array  image  processing,  and  analysis  of 
array  applications  in  tomography  and  holography.  These  problem 
areas,  although  extremely  impc^tant,  are  not  the  focus  of  this  thesis 
and  will  not  be  dealt  with  further  than  mentioned  ht.^,  and  no 
attempt  will  be  made  to  even  begin  to  cite  any  of  their  numerous 
references.  A  historical  review  will  follow  the  developments  in 
homomorphic  and  cepstral  processing  and  array  optimization  with 
their  immediate  general  signal  processing  precedents. 

Starting  in  1965,  some  analysis  was  done  [21,22]  on  the 
distortion  and  added  echos  of  signals  reflected  off  lossy  layers. 
Around  the  same  time,  work  done  on  speech  analysis  and  synthesis 
[13,15,16]  revealed  that  logging  the  spectrum  and  inverting  allowed 
for  the  analysis  cf  echos  in  signals  and  led  to  the  birth  of  the 
cepstrum.  This  found  useful  application  in  speech,  seismic  and 


nondestructive  testing  processing  [14,17,18,19,20.'  wr. .  c  :  t  ::ie 
developments  in  sections  2  and  3  in  this  work. 

Array  imaging  necessary  in  those  two  sections  led  to  the 
analysis  and  design  of  optimized  arrays  for  imaging.  Early  work  in 
improved  array  performance  began  around  1960  with  ad  hoc  adjustments 
of  element  spacings  and  gains  separately  [30,40,66,67]. 

Noting  the  similarities  between  optimal  array  design  and 
optimal  filter  design  permitted  the  use  of  the  many  results  of  one 
and  two  dimensional  optimal  filter  design  algorithms  [23,24,25,26,60, 
62,70]  for  the  use  in  optimal  array  designs.  Simultaneously,  work 
was  being  done  to  find  efficient  methods  of  processing  array  infor¬ 
mation  [27,28,29].  Direct  design  of  optimal  and  suboptimal  arrays 
had  begun  for  the  minimization  of  grating  lobes  and/or  side  lobes 
through  gain  or  spacing  adjustments  [21,32,33,34,38]  and  several  gen¬ 
eralized  routines  [39,43,44,45]  could  be  adapted  to  the  array  optimi¬ 
zation  problem  with  very  good  results.  Some  improvement  in  array 
response  could  be  gained  through  the  use  of  acoustic  lenses  [35]  but 
this  has  many  drawbacks.  A  natural  extension  of  Cartesian  arrays  for 
ultrasonic  imaging  led  to  a  study  of  Fresnel  lens  arrays  [36,37,73,78] 
for  subsequent  optimization. 

This  work  taps  the  significant  results  in  all  these  areas 
and  extends  them  for  near  field  imaging  with  simultaneous  optimization 
of  gains,  phases,  and  spacings  and  cepstral  processing  for  source 
imaging  with  the  removal  of  false  targets.  The  original  contribu¬ 
tions  of  this  thesis  include  the  application  of  cepstral  processing 


5 


to  random  pulse  trains  and  the  development  of  cepstral  array  pro¬ 
cessing  in  Chapter  2,  after  the  introduction  of  the  homomorphic 
system,  and  the  complete  development  of  the  cepstral  processing  for 
the  dereverberation  of  dual  sources  in  Chapter  3.  Previously  devel¬ 
oped  material  in  2.1,  2.3,  2.6,  2.12,  and  2.13  was  extended  and 
adopted  for  this  dereverberation  application.  In  the  array  optimi¬ 
zation  area  the  original  contributions  are  the  extension  of  the 
design  of  suboptimized  arrays  through  linear  filter  design  techniques 
into  the  near  field  and  the  minimax  optimization  of  grating  and  side 
lobes  by  simultaneous  adjustment  of  gains,  spacings  and  phases  for 
any  field  of  view  of  arrays. 


A  linear  system  is  one  that  is  defined  under  the  operation  of 
addition  so  that  if  x(n)  is  the  input  and  y(n)  =  L[x(n)]  is  the  output 
then  if  x^(n)  +  x^(n)  or  ax(n)  are  the  inputs,  the  outputs  respectively 
are  L[x^(n)]  +  Lj^Cn)]  and  aL[x(n)].  A  conventional  homomorphic  sys¬ 
tem  [2]  of  convolution  is  likewise  defined  for  convolution  so  that  for 
x(n)  being  the  input  yields  output  y(.n)  =  H[x(n)]  and  input  x^Cn^x^Cn) 
gives  H[x^(n)]*  Hfx^Cn)].  This  system  can  be  realized  by  three  stages. 
The  first  maps  convolution  to  addition;  the  second,  being  a  linear  sys¬ 
tem,  maps  addition  to  addition;  and  the  third,  which  maps  addition  back 
to  convolution.  The  above  three  blocks  in  the  frequency  domain  would 
map  multiplication  to  addition r^ddition  to  addition,  and  addition  to 
multiplication  respectively.  The  first  block  in  the  time  domain  could 
be  further  broken  down  into  three  functions,  ones  that  map  convolution 
to  multiplication,  multiplication  to  addition,  and  addition  to  addition 
These  three  functions  are  a  Fourier  transform,  log  and  inverse  Fourier 
transform.  The  third  block  in  the  time  domain  system  undoes  the  first 
block,  mapping  addition  to  addition,  addition  to  multiplication,  and 
multiplication  to  convolution  with  the  three  functions  Fourier  trans¬ 
form,  exponential,  and  inverse  Fourier  transform.  These  functions  and 
blocks,  along  with  their  equivalent  input  and  output  equations,  are  il¬ 
lustrated  in  the  following  figures  2.1.1  and  2.1.2. 


Linear  System 


x(n)  1 

L[  ] 

x,  (n)  +  x,(n)  - 

ax(n) 


y(n)  -  L[x(n)  ] 
Ux^Cn) ]  +  L  f  xt (n) ) 
aL[ x(n) ) 


It 

Homomorphic  Svscem  - 

|  H(  ] 

* 

for  Convolution  x(n> 

x^fn)  *  x2(n) 

yCn)  «  H { :•: (n ^  T 
H[ x^ (n) J  *  H[x2 

! 

V 


Hononorphic 
Deconvolution 
(tine  domain) 


x(n) 


D*  t  i 


x(n) 


L  [  ] 
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T-l 


y(n)  l_ 


l  1 


y(n) 


*  x^Cn) 


xx(n)+x2(n)  yi(n)+y2(n) 


y^Cn)  * 


* 


v 


Homomorphic 

Deconvolution 

(frequency 

domain) 


X1(z)  •  x2(a>  Xx(z)  +  X2(z)  Y  (*)  +  \'2(z) 


Y, (z)  •  Y21z) 


Figure  2.1.1  Homomorphic  System  of  Convolution 
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x 


Figure  2 
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1 

1 

1 

1 

1 

+*  !  1 
_ •_* 

Z(  ] 

!+  3 

S  EXP  [  ] 

1 '  'J  ,-l  ,  ,  i 

1  !  * 

!  ^ 
y(n)!  | 

Y(z)  | 

f  if  4  l  J 

Y(z>  1  1 

|  !  y(n 

i 

i _ 

t 

*  V  1 


L  [  ] 


-4  D 


-1 


[  ) 


L__ 


(r.)*x2(n)  ::j(n)+x2(n)  y^nJ+xcrfT  y^n) 


.1.2  Characteristic  Homomorphic  System  of 


Convolution  and  Deconvolution 


As  an  application,  if  a  signal  received  is  Che  convolution 
of  a  desired  signal  and  a  channel  transfer  function,  the  desired  signal 
can  be  recovered  by  passing  the  receiver  signal  through  a  homomorphic 
filter  which  results  in  the  channel  function  additive  in  time  and  hope¬ 
fully  disjoint  with  the  desired  signal  so  that  it  can  be  masked  out  with 
only  the  desired  signal  remaining. 

2 . 2  The  Dereverberation  Problem  Formulation 

For  various  reasons,  a  direct  application  of  the  results  of 
the  previous  section  will  not  be  directly  applicable  to  stochastic  de¬ 
reverberation.  The  general  problem  of  signal  dereverberation  can  be 
stated  as  trying  to  find  the  transfer  function  of  the  signal  path  be¬ 
tween  the  source  and  the  receiver.  If  H ^ C co )  is  the  transfer  function 
of  this  path,  Y(oo)  the  received  signal  and  X(co)  the  source,  this  can  be 
written  in  the  Fourier  transform  domain  as 

Y (to)  *  Hr(co)  X(uj)  (2.2.1) 

Assuming  X (uj>  is  a  series  of  gated  impulses  in  time  of  amplitude  a^ 

with  G Coo)  being  the  transformed  gating  function  g(t),  then 

X Coj)  =  ( l  a.e"jaJTi)  *  G(go)  (2.2.2) 

i 

For  the  moment,  it  will  be  assumed  that  g(t)  is  a  constant  unity  for 

all  time  and  G(uj)  can  therefore  be  dropped  out  of  the  expression  since 

convolving  with  a  delta  function  returns  the  original  function.  Thus, 

Y (oj)  =  Hr(u)  •  [l  a.e“ja)Ti]  (2.2.3) 

i 

is  obtained  from  (2.2.1)  and  (2.2.2)  and  the  aforementioned  assumption. 


Since  X(oj)  is  a  random  signal,  time  averaging  must  be  utilized 


to  obtain  reliable  values  of  Therefore 


Y(u,)  *  H  (w)  •  [J  a.e"jwTi]  (2.2.4) 

1 

Taking  the  averaging  inside  the  summation  gives 


TOT  -  Hr(oo)  ‘  [J  a.e'^i]  (2.2.5) 

i 


and  assuming  independence  between  a^  and  the  amplitude  and  delay 
time  of  the  impulse  respectively  gives 


Y(oj)  -  Hr (ui)  ‘  [£  a.e"JWTi] 


-  H  (u»)  *  [l  a  Q(u)  ] 
i 

*  Hr(o»)  *  Q(u>)  *  l 

i 

where  Q(oj)  is  the  characteristic  function  defined  as  [12] 

00 

Q(oj)  =  e  ^U,T  Pt(t)  dx 


(2.2.6) 

(2.2.7) 

(2.2.8) 


(2.2.9) 


of  the  probability  distribution  function  (pdf)  of  the  impulse's  time 
delay,  which  can  be  brought  outside  the  summation.  This  can  be  re¬ 
written  in  terms  of  H^. (to)  as 


H  (u)  *  - ^ -  (2.2.10) 

r  Q(oj)  l  17 

i 

H  (w)  can  then  be  found  if  the  statistical  distribution  of  the  ' s  and 
the  average  amplitude  of  the  impulses,  a^,  are  known  and  provided  that 


11 


Y(^)  is  Che  average  at  a  particular  frequency  over  several  separate 
measurement  records.  Since  Y(w)  is  measured  the  only  weak  assumption 
is  that  Q(uj)  is  known. 


2.3  Signal  Dereverberation  by  Use  of  Ad  Hoc  One-Dimensional 
Probability  Distribution  Functions 


The  problem  of  finding  Q(uj)  in  (2.2.10)  can  be  resolved  in 
two  ways.  The  first  would  be  to  take  many  measurements  on  t  (if  these 
can  be  measured  directly)  and  plot  the  resultant  pdf.  From  this  Q(oi) 
can  be  calculated  by  taking  its  Fourier  transform. 

The  second  method  would  be  to  take  a  few  measurements  on  x 
and  then  make  a  best  fit  approximation  of  its  pdf  to  a  common  ad  hoc 
density  function.  The  characteristic  function  of  the  pdf  would  then 
also  be  known,  except  for  the  scaling  constants  which  would  need  to  be 
calculated  and  substituted  into  the  equation. 

A  list  of  these  common  pdf's  p(T),  follows  in  Table  2.3.1 
with  their  corresponding  characteristic  functions  Q(w).  These  prob¬ 
ability  functions  were  found  in  [12]  and  are  general  functions  that 


can  be  utilized  in  this  application. 


M  ^ 


2.4  Signal  Dereverberation  Through  Homomorphic  Filtering  with 
One-Dimensional  Statistics 

Equation  (2.2.8)  can  also  be  solved  for  H^Coj)  through  the  use 
of  homomorphic  filtering.  This  can  be  accomplished  by  taking  the  nat¬ 
ural  log  of  both  sides  to  obtain 

log  Y(oj)  =  log  (oj>  +  log  Q  (co)  +  log  [I  a^  (2-4.1) 


If  the  pdf  of  is  Gaussian,  then 


log  Q(co)  -  m  •  jco  +  Y  (jw) 


(2.4.2) 


log  Y (go)  =  log  H  (u)  +  m  •  jco  +  y-  (jco)  +  log[£  a  ] 

r  Z  i  (2.4.3) 

Taking  the  cepstrum  (inverse  transform  of  the  log  of  the  transform) 
yields 

fCO 

_  .  <•<»  .  f°°  •  i-00  2  ?  . 

log[Y(co)  Je-'^dco  =  log[H  (oo)]eJ(^Tdco  +  rajcoe^^dco  +  ^-(jco)  eJaJTdco 

—  00  J— OO  ^  J— 00  oo 


+  log  [£  a^Je-1  dco 


(2.4.4) 


-oo  X 


If  Hr(t)  is  the  inverse  transform  of  log  ^(gj)  we  obtain: 


2  2  _ 

/(x)  =  Hr(x)  +  m  -j-  <5(t)  +  | - 2  ^(t)  +  log[£  ajfitx) 

dx  i 


'(2.4.5) 


Evidently,  the  log  of  Q  in  the  Gaussian  case  is  extraordi¬ 
narily  smooth  except  in  the  vicinity  of  its  D.C.  frequency  components 
which  result  in  the  delta  and  doublet  functions  of  equation  (2.4.5). 


For  t  t  0  this  can  be  simplified  to 


V  Cx)  =  H  r  (t)  ;  T>0  (2.4.6) 

That  is  except  at  x  =  0  the  reverberation  is  perfectly  separable  from 
Hi l)  even  though  m  and  a  ere  unknown.  The  process  of  extracting  the 
unknown  H  (x)  is  completed  by  finding  the  inverse  logarithm  of  the  in¬ 
verse  Fourier  transform  of  H  (x) . 

One  might  wonder  whether  the  above  result  holds  for  other 
pdf's.  In  general  for  any  pdf,  Q (oj)  can  be  expressed  in  terms  of  its 
(noncentral)  moments,  a^»  as  [3,4]. 

00 

Q(w)  =  1  +  I  U^)1  (2.4.7) 

i-1  l! 


where 


a.  *  E  {xj} 


(2.4.8) 


Using  the  identity 

2 

log  (1  +  z)  =  y  -  j-  +  ...  ,  (2.4.9) 

a.  ^ 

letting  z  -  £  —  (jw)  ,  and  simplifying  results  in 

i-1 


CO  X  . 

log  Q(co)  =  l  tp  (joj)1  (2.4.10) 

i-11. 


In  (2.4.10)  the  x's  are  the  cumulants  or  semi- invariants  of  the  dis¬ 
tribution.  If  are  the  central  moments  and  are  the  moments,  they 
are  related  to  the  cumulants  by 


1  + 


oo  y 

i=l 


(2.4.11) 
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which  by  equating  like  powers  breaks  down  to 
Xl  *  *  a 

2  2 

X2  *  a2  "  ai  "  a 

x3  -  o3  -  3a3a2  +  2a f 

X4  -  -  3a2  -  4a ^  +  12aja2  -  6a‘ 

This  can  be  written  conversely  as 

al  *  X1 
a2  =  X2  X1 
a3  =  X3  +  3xlx2  +  xl 

a4  "  x4  +  3x2  +  4X1X3  +  6xix2  +  xl 

• 

Finally  the  cumulants  can  be  expressed  in  terms  of  the 

central  moments  u.  where 

3  r 

U  =  E[ (T  -  m)j]  =  (T  -  m)1pr(T)dx  (2.4.12) 

-1  _oo 

as 

Xi  ■  m 

2 

X2  =  a 

x3  =  y3 
X4  =  U4  -  3^2 
X5  -  u5  -  10u2li3 
X6  *  U6  -  15li2u4  -  10u3  +  30u2 


u 


(2.4.13) 


Substituting  (2.4.10)  into  (2.4.1)  gives 

00  X 

log  Y(cuT  =  log  H  (to)  +  I  7T  +  lo§  tl  I.]  (2.4.14) 

r  i=l  x*  i  1 

Remembering  the  Fourier  transform  theorem 

(joj)n  S((a)«-»»  d  S(T)  (2.4.15) 

dTn 

when  taking  the  transform  or  cepstrum  of  (2.4.14)  yields 

oo  x  i 

V  (T)  -  H  (x)  +  l  77  d  5{T)-  +  log  [l  a  ]  6(x)  (2.4.16) 

r  i=l  dT1  i  1 

which  again  simplifies  to 

y  (T)  =  Hr( T)  ;  T  >  0  (2.4.17) 

regardless  of  the  distribution  on  the  impulse  time  delays. 

Reiterating  the  conclusion  we  therefore  find  that  even  in 
the  most  general  case  of  pdf's  representable  by  Graham-Chari ier  or 
Edgeworth  series  [3]  the  log  of  the  characteristic  function  is  so  smooth 
that  its  transform  inverse  produces  only  singular  functions  (such  as 
delta,  doublet  or  triplet  functions).  Under  such  circumstances  perfect 
separation  of  reverberation  and  signal  statistics  is  possible  at  least 
in  the  continuous  domaia; 

2 . 5  Signal  Dereverberation  for  Source  with  Dereverberation  Between 
Amplitude  and  Arrival  Time 

For  the  case  when  the  source  pulse  is  not  such  that  the  amp¬ 
litudes,  a^,  and  the  arrival  times,  T\,  of  the  pulses  are  independent. 
Equation  (2.2.5)  cannot  be  reduced  to  (2.2.8).  Instead,  the  quantity 
inside  the  summation  must  be  evaluated  directly. 


In  general,  an  expression  to  be  averaged  can  be  related  to  the  pdf  of 
the  individual  variables,  and  in  particular 


i  e  ^WTi  =  a.e  -^ajTi  p  (a.  ,T  ,)dr  .da. 
i  J  j  x  r  11  11 


(2.5,1) 


Assuming  p  (...)  is  Gaussian  with  p  #  0,  (2.5.1)  can  be  eval¬ 
uated  by  multiplying  by  -^y  the  derivative  with  respect,  to  go'  of  the 
characteristic  equation  of  a  two-dimensional  Gaussian  function  with  go' 
set  to  zero.  That  is. 


ae  JU)Tp  (a,i)dxda 


1  d 


-[(a  -  a)2c?i-2par  +  (t  -  t)2o22] 


-j  doj '  2-rr  f  M  |  p ' 

J  J 


(0lla22-°  > 


-iwT  -jw'a,  , 
e  J  e  J  drda 


go'  =  0 


(2.5.2) 


Therefore 


J  {-^jt  exP  [-(c^w'2  +  2puxi)'  +  a22CJ°2) /2_J  (too  +  aw')]} 


GO  '  —  0 


(2.5.5) 


j [ -a 1 1 ( 2w ' ) / 2-2pw/ 2- j a ] 


2  '  2  2  2  -  - 
exp[-(a..G0  +  2pGoco'  +  a99co  )/2-j(xw  +  aw')] 

GO  =  0 


=  [a  -  jpw] e 


[a  -  jpgo]Q(oj) 


2  2 

~^22^  ^2  “  -'Ta) 


(2.5.4) 


(2.5.5) 


(2.5.6) 
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Substituting  back  gives 


l  a±e  ja)Ti  =  Q (oo)  l  [ai  -  jpu] 


(2.5.7) 


TT  ,,  v  =  Y(tO) _ 

r  Q(u)  £  -  jpto] 

i 


(2.5.8) 


It  should  be  noted  here  that  (2.5.8)  reduces  to  the  same 
results  obtained  previously  when  it  was  assumed  a^  and  are  inde¬ 
pendent,  i.e.,  p  =  0.  Also  to  be  noted  is  that  the  assumption  that 
P  (...)  is  Gaussian  is  not  overly  restrictive  since  similar  derivations 
follow  for  many  non-Gaussian  probabilities  which  can  be  represented  by 
Gram-Charlies  or  Edgeworth  series  [3]  of  normal  functions. 

Using  cepstral  analysis,  equation  (2.4.1)  becomes 


log  Y (co)  =  log  H  (to)  +log  Q(to)  +  log  £  [a.  -  jpto] 

i=l  1 


(2.5.9) 


=  log  Hr(u)  +log  Q (to)  +log  Mat  +  log[l  -  j  ~]  ^  5  1Q) 

i 

2  2 

‘/(t)  =  Hr( t)  +  m  ~-<5(t)  +^2^-2  6(t)  +  Ma.  6(x) 

z  dx  L 


+  F  {log[l  -  j  f±]} 

a  . 

l 


.5.11) 


Now  the  only  term  to  be  evaluated  is  F”*{log[l  -  j  — ]  } , 

cl  , 

X 

Using  the  Taylor  series  for  a  complex  number  y 


oo  n 

Y  y 


and  recognizing 


log  (1  -  y)  =-  l  j-  ;  |y  |  <  1 
n=l 


(2.5.12) 


log  (1  -  y)  =  —log (— —  ) 

1-y 


(2.5.13) 


Using  the  expansion  of  (2.5.17)  on  the  term  log  [1  -  j  — 

l 


yields 


log  [l  -  j  ] 

a  , 

1 


00  ,  .  -n/  a. 

I  £(juj)  0 - )k 

k-1 k  1  -  j  £*» 

a . 

l 


(2.5.21) 


-p/a.  ,2  -p  /  a  0 

(ju)C - -)  +  ( - V  +  . 

1  -  2  1  - 

i  i 

(2.5.22) 


and  taking  the  inverse  transform 


F~t log[ 1  -  j  g*]} 
*i 


i  i  /  a .  -  -  2  .  “p  /  a .  ^ 

—  F-1rr - in  +  i  - —  F*1/ r - ii2 


f-F"  {( - -]}  +~ 

dT  1  -  2  dT2 

a . 

i 


{[ - -n  +... 

l  -  iSS* 

Ja . 
l 

(2.5.23) 


^  f (x)  +  J~^2  [f (x)*f (t)  1  +• 
dx 


(2.5.24) 


where 


f  (x)  =  exp(aix/p)U(x) 


(2.5.25) 


Equation  (2.5.24)  can  be  rewritten 


F  *"{log[l  -  j  ErM }  =  g  (x )  +  4  g(x)*g(x)  +  ••• 


(2.5.26) 


.  _  a . 

g(x )  =  ^  f  (x )  *  exp(ai  t/d)U(x)  +  ^  6  (x) 


(2.5.27) 


Now  g(T)  will  not  blow  up  if  a  and  p,  the  correlation  coefficient 


between  the  amplitude  and  arrival  time  statistics,  have  opposite  signs. 


F  1{log[l  -  j  zr-] }  will  have  significant  value  as  I  decreases  to  zero 
al 


and  will  destroy  more  information  about  H  (x)  for  small  T. 


2 . 6  Signal  Dereverberation  by  Use  of  Ad  Hoc  Two-Dimensional 
Probability  Distribution  Functions 


If  the  one-dimensional  pdf  approach  taken  in  Section  2.3  is 


not  appropriate  (i.e.,  Y(w)  =  0,  £  a.  =  0),  the  problem  can  be  restated 


in  terms  of  its  two-dimensional  statistics.  Equation  (2.2.3)  becomes 


JO)  T, 


YC^YCo)')  =  Hr(00)Hr(aj,>  [£  a.e  JUJTi][£  a.6  x]  (2.6.1) 


l  l 

Using  the  same  technique  as  in  Section  2.2,  (2.2.4),  (2.2.6)  and  (2.2.8) 
become 


Y (a) ) Y (oj ' )  *  Hr(cj)Hr(u)')  [£  ate  ja)Ti][^  a^  JUJ  Ti]  (2.6. 


-JW  1, 


2) 


Hr((0)Hr(u)’)  [£la.ake 
i  k 


“J0*»T±  +  !*>'  T.) 


(2.6.3) 


Hr  ( uj)Hr  ( a)' )  Q(u),oj')  [  l  l  a^a^] 

i  k 


(2.6.4) 


The  last  equation  can  be  rewritten  if  oj  and  uj'  are  independent  in  Q  as 


Y(uj)Y((i)' )  =  (to)  (uj'  )Q  (w)Q '  (^' )  [£  £  a.aj  (2.6.5) 

i  k 


for  which  the  one-dimensional  statistics  could  still  be  used. 

/V 

Finding  a  suitable  Q(oj,uj')  can  be  done  again  by  using  some  ad 
hoc  pdf  functions.  A  few  of  these  are  given  in  Table  2.6.1  along  with 
their  characteristic  functions.  Further  simplifications  occur  when 


i 

U)  • 


These  are  given  in  Table  2.6.2. 


1)  Bivariate,  Jointly  Normal 
Q(u>)Q(u>’)  *  e'(a)2  +  W'2  +  2ax^'p)a2/2 


q(t.t’) 


2TTaa'  /l-p2 


e  - 


(t-t)2 


2 (1-P  ) 


2u(t-t)  (t 1  -t 1 )  ,  u’-t') 

oo'  2 

a 


P 


U  =  covariance 


7  2 

[q(t.t')  =  — 1~P-  (k  +  t2  +  2ptt '  +  t'2)"1"1] 
Trk 

m>0,  | p |  <1,  k>0 

2)  Laplace 

Q(w)Q'  (u»’)  -  - - - r 

1+(</*u,2+2gjw’p)^- 

q(t,t')  *  - - -  K  (/2&/cr) 

Tra2/-p2 

3)  Ouasi-Pyramid 

Q(w)Q'  (w' )  =  ^  sinc2(2^-)sinc2(^) 
q  (t ,  t  * )  *  aA(f)A(^-) 


TABLE  2.6.1  Ad  Hoc  Functions  for  Q(uj)Q'(co')  [3,4,5] 


iv-:* 


23 


fc  ! 


4)  Pearson  Type  VII 


Q(co)Q'  (u)')  -  ^-^(avL2  +  a)'2  +2uw'p)VK  (avh2  +  oj'2  +Wp) 
r(v)  V 


v  >  0  ,  a  >  0 


q(t.t') 


ita~2V  l-p2 


(a2  +  t2)--1 


5)  Uniform 

qC^Q'Cu)')  ,4?ln.(c<a)  •  sin(W) 

CD  CiiOJ 


=4Zb 


t|<  c  ,  I t' I  <  b 


6)  Pearson  Type  II 


Q(oi)Q'  (oj*)  =  2vr(v+I) 


(Av^o o2+tu '  2+2cuu) '  p  ) 
(A^2  +oj’  ^+2axi)’  p) V 


q(t.t') 


TtA2V/l-p2 


(a2+£2) 


’»  • 


1 1 1  <A,  V  >  0,  i  =  — — 4  --- 

1  - 


Jv(.)  *  Bessel  function  of  1st  kind 

K,,(*)  *  Modified  Bessel  function  of  2nd  kind 


TABLE  2.6.1  Ad  Hoc  Functions  for  Q  (u>)  Q '  (u>  * )  (continued) 


1)  Q(o))Q'  (u)  «  e 


-(2  +  2p)u)1 2a2/2 


NORMAL 


2)  Q(w)Q'(o») 


1  +  (1  +  p)a )2a2 


LAPLACE 


J  (AoV 2  +  2p) 

3)  Q(oo)Q'  (ui)  =  2  T(\>  +  1)  — - - - 

(Atjj/2  +  2p) 


PEARSON  TYPE  II 


V  >0 


4)  Q(u))Q'(a))  -  (a w»T+  2p;  K^( 


PEARSON  TYPE  VII 


v  >  0 

a  >  G 


5)  Q(u))Q'  (oj)  -  ^  l^--sinb^ 


UNIFORM 


1  sin  au 

2  2 

a  oj 


if  a  =  b 


TABLE  2.6.2  Ad  Hoc  Functions  for  Q(u)Q(uj')  When  uj  =  oo * 
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2.7  Signal  Dereverberation  through  Homomorphic  Filtering  with 
Two-Dimensional  Statistics 

Applying  homomorphic  filtering  to  the  two-dimensional  statistics 

first  requires  taking  the  log  of  both  sides  of  (2.6.5)  to  get 

log  {Y (oj) Y (oj  ’ ) }  »  log  H  (ai)+log  H  (ai')+log  Q(u))+log  Q'  (oo')+log[£  JTTaT] 

r  r  iklk 

(2.7.1) 

assuming  independent  of  x^»  a^  and  a^.  Substituting  (2.4.10)  into 
(2.7.1)  will  give 

log  {Y(o))Y(w’)]-log  H  (oj)+log  H  (oj')+  J  77(30)) X+  l  ■5r(jcj,)i+log[J  a.  ] 


For  the  special  case  u)  =  0)' 


(2.7.2) 


— - -  oo  y  x'- 

log  {Y2  (to) }  =  2  log  Hr(oj)  +  l  —-i(jLo)1-  +  log  [£  £  171^] 

i=l  i  k 


whose  cepstrum  again  for  x  ^  0  simplifies  to 


(2.7.3) 


y(T)  *  2 H  (T) 
r 


T  >  0 


(2.7.4) 


where  now  y(x)  is  the  inverse  transform  of  Log  (Y  (w)} .  In  general, 

going  back  to  (2.6.4),  similar  analysis  can  be  done  to  get 

00  00  X  -M  ■  1 

log  {Y (oj)Y(o)'  ) }  -  log  H  (u)+log  H  («*)' )+  T  7  7777(30))  \  ju>' ) 

r  r  i-1  k-l1'*" 


+  log  fl  I  a  a] 
i  k  1 


(2.7.5) 


(For  the  case  of  nonindependence  between  x^  and  x^>  but  independence 
with  a^,  a^)  given  that  log  Q(u>,u)')  can  be  expressed  from  Section  2.4 


00  00  ^  # 

log  Q(uj,uj')  *71  TiTT  (Jo))1  (j^)k 
i=l  k-1 


(2.7.6) 


This  can  be  expanded  and  the  cepstrum  taken  to  give  similar  results 
to  (2.7.4)  for  x  i  0. 

In  this  case  the  equation  corresponding  to  (2.6.5)  becomes 

W7)  =  Hr(w)Hr(aj')  Q(u,u>')  [J  l  aTa^]  (2.7.7) 

i  k 

So  that  if  Q(u),u')  is  known  a-priori 

H  (oj)H  (a)')  =  - Y(h>.).Y^..U -  (2.7.8) 

Q(w.o)’)[J 

i  k 

resulting  in 

hJ(oj)  - - Y  ^  (2.7.9) 

Q(oj,  +  w)  [£  £a7a^] 
i  k 

for  to'  a  +uj  .  The  resulting  cepstrum  is  once  again 

y(T)  -  2Hr(T)  ;  T  *  0  (2.7.10) 

It  is  noted  here  that  for  both  the  one  and  two  dimensional 
statistics,  once  Hr(u})  or  Hr(u))Hr(w' )  has  been  found,  the  received 
signal  is  simply  multiplied  by  the  inverse  of  to  dereverberate  it. 

For  the  multi-element  array,  H  (w)  ,  i  =  1,2,  ...  N  must  be  found 

for  each  of  the  N  elements  and  the  signal  received  by  the  iC^  element 
must  be  multiplied  by  Hr^(w)* 

Each  Hr(oj)  is  found  from  the  previously  computed  H  ( t)  which 
is  obtained  from  the  measured  quantity  V (t)  by  the  relation 


where 


Hr(T) 


;  -e  <  t  <  e 


H  (t)  ;  elsewhere 

r 


(2.7.12 


H^(x)  is  an  estimate  of  H  (t)  obtained  by  either  zeroing  Hr(x)  for  small 
T  or  extrapolating  H^( X)  for  -£  <  T  <  e  from  H  (x)  outside  the  region 


of  divergence . 


2.8  Treatment  of  Hermite  Expansion  Source  Pulse  Case 


In  this  section  the  assumption  that  the  signal  pulse  is  an 

ideal  impulse  will  be  removed  and  generalized.  Rewriting  eq.  (2.2.3) 

in  terms  of  a  general  pulse  shape  h  (t)  or  H  (to)  gives 

P  P 


Y(to)  -  H  (to)  X(<o) 


r  'ja)Ti 

-  Hr(to)  [l  H  (to)  e  X] 


(2.8.1) 


(2.8.2) 


Averaging  both  sides  as  before  and  assuming  independence  between 
arrival  time  and  pulse  shape  amplitude 


_  -jCOT  . 

Y (to)  =  Hr(to)  [l  H  (to)  e  X] 


(2.8.3) 


=  H  (to)  Q (to)  ^  H  .  (to) 

t  .  Ol 


(2.8.4) 


where 


h  (t)  e 


is  the  Fourier  transform  of  the  average  pulse  shape.  Here  h  (t) 
will  not  be  taken  to  be  an  ideal  delta  function  however  it  will  be 


assumed  to  have  a  Hermite  orthogonal  expansion  [4],  i.e., 


v(t)  =  X  +  +  "-]a(T) 


2=0 


(2.8.6) 


00  00 


l  [  l  (-l)m 

g=0  m=l 


iiTr 


(2.8.7) 


where 


D  =  -7— 


d_ 
dt. 


(2.8.8) 


-t2/2 


a(t)  = 


(2.8.9) 


/ 2tt 


and  the  are  the  "cumulants"  of  the  pulse  shape.  Eq.  (2.8.7)  can 


be  shown  to  represent  a  sum  of  orthogonal  terms  since 


(-Dr  a(t)  =  H^(t)  a(t) 


(2.8.10) 


where  H.(t)  is  the  2th  Tchebychef f-Hermite  polynomial. 


Given  h  .(t),  its  Fourier  transform  is 
Pi 


H  (u ))  *  e-uj  exp[-jjju)  +  -jyQw)2  +  37^^ ?  +  47^  ^  ^ 


Pi 


,-u2/2  exp[  1  ~  (ju))®] 


m=l 


(2.8.11) 

(2.8.12) 


Calculating  the  log  of  Hpi(co)  is  straightforward  and  its  cepstrum  is 


H(x)  6(T)+  t) 


«>  <  ,m 

m  d 


(2.8.13) 


This  again  shows  the  cepstrum  of  the  noise  pulse  is  confined  to  the 
region  I  =  0  in  the  cepstrum  or  | T |  <  e  in  the  digital  approximations 
to  the  continuous  domain.  This  shows  there  are  a  broad  range  of  pulse 
shapes  which  fit  the  orthogonal  expansion  and  still  are  confined  to 
the  origin  in  the  cepstrum  of  the  received  signal. 

Applying  this  same  assumption  and  analysis  to  the  two  dimen¬ 
sional  probability  case,  which  must  be  used  when  the  average  pulse 
shape  is  zero,  gives  similar  results.  Eq.  (2.6.1)  can  be  generalized 
to 


-JUT. 


•ju'Tk, 


Y(w)  Y(u,*)  -  Hr(w)  Hr(u>')  [l  Hp.(to)  e  x]  [J  H  (w')  e  k] 


(2.8.14) 


With  the  previous  assumption  and  analysis  one  proceeds  as  follows; 


T. 


Y (to)  Y(u')  *  H  (W)  H  (<*)')  [T  H  .(U)  e*JWTi][y  H  ,  (<*»*)  e  “] 

1  P1  k  pk  (2.8.15) 


-j  (tot  .  +  CO '  T ,  ) 

H  (oj)  H  (a)')  [l  l  H  .  (u)  H  ,  (a)* )  e  1  ] 

r  r  “  f*  pi  pk  J 


i  k 


(2.8.16) 


where 


Hpt(“>V<“')  '  1  1  hpi(t)  V<c,) 


-j  (lOt  +  U)'t  '  ) 


—CO  —CO 


dt  dt’ 


(2.8.17) 


(2.8.18) 


(2.8.19) 


and  h  (t)  h  ,  (t')  is  the  two  dimensional  average  pulse  shape. 


This  can  be  represented  by  a  two  dimensional  Hermite  orthogonal  ex¬ 


pansion  [4]  of 


V(t)  v(t,) 


uu  gu  uw 

l  {  l  l  [<-!) 

VZQ  m=l  n-1 


k£  Dm 

m+n  mn  1  2 

m!  n!  1! 


]} 


2tt/  l-p2 


where 


-2ott '  +  t'2), 
2 

2 ( 1-p  ; 


D 


1 


d_ 

dt 


(2.8.20) 


(2.8.21) 


D 


2 


d 

dt' 


(2.8.22) 


and  the  <  are  the  two  dimensional  "cumulants"  of  the  two  dimensional 
mn 

statistical  average  pulse  shape.  Eq .  (2.8.20)  can  also  be  shown  to  be 
a  sum  of  orthogonal  terms  of  two  dimensional  Tchebychef f-Hermite  poly¬ 
nomials  [9]  . 

The  transform  of  eq.  (2.8.20)  is 


H  ,(oj)  H  .(<*)') 
pi  pk 


exp[-  j 


(oo  +  2  pcoto'  + 


a)'2)] 


exp[  L  l 


m- 1  n= 1 


mn  m! 


(ja))m(ju,)^ 


(2.8.23) 


By  setting  a)'  or  a)'  =  -u  the  one  dimensional  cepstrum  can  be  ob¬ 
tained.  The  first  substitution  yields 


Hp(t) 


2  00 
(i  +  p)  — j  5(t)  +  y 
dx2  m-1 


OO 


<  mn 
m!n! 


,m+n 


dr 


m+n 


5  (x) 


(2.8.24) 


whereas  ^  gives 


Hp(T) 


-  (1  +  J) 


dx 


6(i)  +  l 


r 

L 

m=  1  n=  1 


(-1) 


< 

n  mn 
min! 


,m+n 


dx 


m+n 


6(x)  (2.8.25) 


If  p  in  eq.  (2.8.23)  is  equal  to  zero  then  the  two  dimensional  stat¬ 
istics  are  separable  and  eq.  (2.8.24)  can  be  rewritten  as 


H  (X,  -4  «(T>+2  rjf  fm  «<T) 
v  dl  m=l  dr 


(2.8.26) 


Again  it  has  been  shown  that  there  are  a  class  of  pulse 
shapes  into  which  the  source  noise  pulse  can  fall  and  yet  the  cepstrum 
of  which  still  is  confined  to  T  =  0.  This  meets  the  requirements  for 


perfect  separability  in  using  the  cepstrum  outside  the  T  -  0  region 
to  calculate  the  channel  response  and  dereverberate  the  signal  with 
an  inverse  channel  filter.  Hermite  expansions  exist  for  all  square- 


f  f2(t) 


integrable  functions  where  i  i  (t)dt  exists  but  this  is  just  a  subset 

0 

of  all  functions.  Many  non-Hermite  pulse  shapes  exist  which  violate 


this  condition. 


2 . 9  Errors  Due  to  General  Source  Pulse  Transfer  Function 

In  this  section  the  errors  introduced  by  modeling  the  noise 

as  a  series  cf  ideal  impulse  functions  rather  than  finite  width  pulses 

will  be  studied.  If  h  (t)  represents  the  actual  non-ideal  noise  pulse, 

P 

then  the  source  will  be 


=  )  a.h  .(t  -  T.)  =  7  h  (t)*a  d(t 

Vipi  i  r  p l  i 


-  V 


(2.9.1 


Given  that 


f 

H  ,(o>)  -  h  .  (t)e"J;jJtdt 

pi  j  pi 


(2.9.2) 


f 

H  (.»)  =  h  (t)e  J‘jtdt 

r  J  r 

_0O 


(2.9.3) 


.  *  "  *  *  •  ■  «"  .  -  •  •  «  *  «  - 


where  h^t)  is  the  channel  impulse  response,  then 


y(t)  =  hr(t)*v(t) 


and 

Y(co)  =  (o))V (oj)  =  Hr(oj)[^  H  (c^a^e  ^Ti] 

i  v 

Averaging  both  sides  gives 

YCST  =  Hr(w)V(^T  =  Hr(o))[^H  (a))a.e"ja)Ti] 

i  p 

Y  (oj)  =  H  (ui)  Q  (oj)  £  a  .  H  .  (oo) 


(2.9.4) 

(2.9.5) 

(2.9.6) 

(2.9.7) 


assuming  a^h^^(t)  and  are  independent.  Logging  both  sides  and  taking 


the  cepstrum  yields 


2  2 

/(T)  =  Hr( T)  +  m^  5 (T )  +  ^  6(t)  +  Hp(T) 


(2.9.8) 


Here  H  (T)  represents  the  cepstrum  of  the  average  pulse  shape.  If 
hp(t)  is  modeled  by  a  Gaussian  pulse 

2  2 

h  (t)  =  e_t  /2°  (2.9.9) 

P 

there  will  be  no  contribution  to  the  cepstrum  for  T  #  0  and  for  any  very 
narrow  pulse,  computer  simulations  have  shown  that  their  cepstra  are 
limited  to  small  values  of  x.  It  should  be  noted  here  that  many  seis¬ 
mic  surface  pulses  can  be  modeled  by  Lamb  functions,  a  form  of  loga¬ 
rithmic  pulse.  This  pulse  cannot  be  perfectly  reproduced  by  a  Hermite 
expansion.  Cepstral  processing  on  such  signals  will  result  in  the  loss 


of  some  information  and  distortion  of  the  original  pulse  shape. 


10  Si2nal  Dereverberation  Within  A  Dispersive  Channel 


Although  cepstral  processing  has  been  shown  to  be  very  useful 
for  signal  dereverberation  it  does  have  a  few  theoretical  limitations. 
This  section  demonstrates  the  cases  where  cepstral  techniques  break 
down  and  fail  to  give  a  viable  solution  for  reverberant  channels. 

To  calculate  a  channel's  transfer  function  it  was  necessary  to 
throw  out  the  part  of  the  cepstrum  around  x  =  0  since  this  contained 
mostly  signal  pulse  information  and  little  channel  information.  In 
general,  by  starting  with  an  impulse  function  or  any  of  its  derivatives 
at  x  =  0  in  the  cepstrum  and  working  the  problem  backwards  an  expression 
can  be  obtained  for  all  the  time  functions  that  end  up  at  T  =  0.  That  is 


illii.  .  (-m" 

dt" 


(2.10.1) 


and  taking  the  antilog  gives  e^  J  .  The  inverse  transform  of  this 
function  is  difficult  to  find  for  n  in  general  but  can  be  evaluated  for 


n  =  0 

n  =  1 

n  =  2 

n  =  3 

n  =  4 


al  values  of 

the  time  function. 

f(t),  are: 

f(t)  =6 (t) 

(2.10.2) 

f(t)  =6 (t-1) 

(2.10.3) 

f(t)  =  -4= 

e-t2/4 

(2.10.4) 

/  2tt 

f  (t)  = 

e-(t-l)2/4 

(2.10.5) 

/  2tt 

f (t)  =  — 

2  2 
- 1 Z / 4 .  -t  /4 
e  *e 

(2.10.6) 

The  values  of  f(t)  for  n  =  2  and  n  =  4  are  the  critical  ones 


showing  that  homomorphic  filtering  will  be  unable  to  separate  a  dis¬ 
persive  channel  response  from  the  pulse  response.  In  fact  for  all 
n  >  1  f ( t )  will  simplify  down  to  some  form  of  Gaussian  curve.  In 
other  words  a  channel  containing  a  continuum  of  paths  in  a  given 
range  from  source  to  sensor  will  not  be  able  to  be  separated  out 
using  homomorphic  processing.  This  case  could  arise  in  a  nonhomogen- 
eous  media  whose  density  varies  from  point  to  point  and  therefore 
varies  the  wave  propagation  velocity. 

However  there  is  still  a  wide  range  of  applications  on  which 
cepstral  filtering  does  work.  Also  there  is  some  ongoing  research  in 
the  area  of  Volterra  filtering  which  may  have  some  promising  solutions 
to  this  problem  when  homomorphic  filtering  fails. 

2.11  Numerical  Considerations  of  the  IDFT  of  (.iLo)1/ i- 


Some  attention  should  be  paid  to  the  numberical  results 


obtained  when  calculating  the  inverse  discrete  Fourier  transform  (IDFT) 


oo  .  v 

r  1  , 

of  l  (jw)  -tt  •  The  results  obtained  in  the  discrete  numerical  case 

i=l  1- 


will  only  approximate  those  obtained  in  the  ideal  continuous  case. 
Although  as  the  number  of  samples  increases,  the  discrete  Fourier 
transform  (DFT)  case  will  more  closely  approximate  the  continuous  case, 
it  is  important  to  be  able  to  analyze  and  put  limits  on  the  maximum 
error  expected. 


Numerically  x^(n),  the  inverse  DFT  of  ( joj)  /  i  I  ,  is  expressed 


as 


N-l 


x  (n)  =  —  l  ( j  2iTk) 1  e 


.  2tt 


2.11.1 
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'«(“>  =  |  '  (jan)1  l  k 

k=0 


.  il-l  .  j—  kn 

1  F  kV" 


2.11.2 


This  cannot  in  general  be  expressed  analytically  so  computer  simula¬ 
tions  of  x^(n)  were  made  for  several  values  of  i.  Figures  2.11.1  and 
2.11.2  show  the  magnitude  and  phase  of  the  IDFT  of  jco  using  a  256 
point  transform.  The  results  are  poor  due  to  the  small  number  of 
points  and  there  is  a  significant  contribution  for  all  values  of 
time  when  compared  to  the  ideal  continuous  case,  an  impulse  function, 
which  equals  zero  for  all  value  of  time  t  #  0.  The  phase  plot  shows 
the  rapid  variation  in  the  phase  of  this  non-real  time  function.  The 
ideal  case  of  the  continuous  inversion  would  be  purely  real  and  exist 
only  at  t  3  0.  Figure  2.11.2  would  be  zero  throughout  in  this  case. 
The  magnitude  response  can  be  improved  by  increasing  the  number  of 
points,  however,  the  phase  will  retain  the  same  form.  This  will  not 
be  a  problem  since  the  phase  will  be  due  to  very  small  but  non-zero 
real  and  imaginary  terms . 

The  plots  in  this  section  and  also  section  2.12  have  been 
designed  to  be  used  or.  fast  Fourier  transform  (FFT)  routines.  Accord¬ 
ingly  they  exhibit  the  wraparound  phenomenon  of  these  types  of  plots 
where  the  upper  half  of  the  x-axis  is  merely  a  translation  of  the 
negative  portion  of  the  plot  to  a  positive  abscissa  position. 


0.  33^333  6B.GS7  100.000  133.333  1GS.BBS  200.000  233.333  26S 
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:e  2.11.1  Magnitude  of  Inverse  Fourier  Transform  of  ju) 
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Increasing  the  number  of  points  to  2048,  Figures  2.11.3  and 
2.11.4  show  the  new  resuits  for  the  same  function.  This  shows  the  im¬ 
provement  in  the  magnitude  response  due  to  the  increased  sample  fre¬ 
quency.  Here  there  is  no  significant  contribution  for  a  normalized 
radian  frequency  greater  than  tt/ 4  and  further  improvement  can  be  ob¬ 
tained  by  increasing  the  number  of  points.  The  phase  is  as  expected, 
still  varying  rapidly. 

Figures  2.11.5  and  2.11.6  show  the  magnitude  of  the  IFFT  of 
5  9 

(joj)  / 5 !  and  (juj)  / 9 !  respectively  with  their  absolute  scales  given. 

Finally  Figures  2.11.7  and  2.11.8  show  all  three  magnitude  plots  on  the 

5  9 

same  axis.  The  functions  are  jio,  (ju>)  / 5!,  and  (joj)  / 9 !  with  Figure 

2.11.7  being  unlogged  and  normalized  and  Figure  2.11.8  just  being 

logged  to  show  the  details.  Obviously  from  Figures  2.11.7  and  2.11.8, 

the  most  significant  contributions  will  be  due  to  ju>.  In  2.11.7,  the 

other  two  functions  are  barely  resolvable  due  to  their  relatively  small 

magnitudes  when  compared  to  the  IDFT  of  ju). 

It  can  be  seen  that  the  factoral  term  rapidly  decreases  the 

contributions  of  (jwjVi!  as  i  increases.  The  cumulants,  which 

scale  the  ( joo) 1/ i !  term  also  go  to  zero  for  increasing  i  with  the  speed 

of  convergence  depending  on  the  distribution  function  being  analyzed. 

00 

In  general,  the  series  £  (jw)1  ^7  should  converge  fairlv  rapidly. 

i=l  11 

To  be  noted  here  is  that  this  major  contribution  of  error  is  due  to  the 
j uj  term  and  if  this  error  is  minimized  by  using  a  large  enough  number 
of  points  for  the  DFT,  the  rest  of  the  series'  contributions  will  be 


negligible. 


0. 
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2.12  Programming  Considerations  and  Simulations 


In  this  section,  several  technical  aspects  of  numerically 
calculating  the  mathematics  developed  in  this  report  will  be  considered. 
The  four  topics  discussed  are 


1)  cepstral  calculation  considerations; 

2)  cepstral  errors  of  non-Gaussian  pulses; 

3)  signal  time  averaging  calculations; 

4)  accuracy  improvement  by  iteration. 

The  definition  of  the  cepstrum  is  the  inverse  fourier  trans¬ 
form  of  the  complex  log  of  the  fourier  transform  of  the  original  func¬ 
tion.  Here  both  the  foreward  and  inverse  transforms  are  uniquely  de¬ 
fined  but  the  complex  log  is  nonunique  due  to  the  infinite  number  of 
possibilities  for  the  imaginary  term.  For  a  complex  number 


X(t)  =  xy (t)  +  jx.(t) » 


(2.12.1) 


the  real  part  of  the  complex  log  of  X(t),  xr(t),  is  log  /xf(t)  +  xT(t) 

A 

but  the  imaginary  part,  x^(t),  is  not  simply  the  principal  part  of  the 
angle  of  X(t).  It  has  been  shown  [6]  that  for  real  time  signals  lead¬ 
ing  to  a  fourier  transform  whose  real  part,  Xr(eJU)),  is  even  and  imag¬ 
inary  part,  X^(e',w),  is  odd  then 


dXi(eJW) 


X2(ejw) 

r 


,  X.(e^) 

d  r  1 


X2(ejw)  +  X2(ejW)  du)  X  (ejw) 

l  r  r 


(2.12.2) 


iveJt0) 


(2.12.3) 
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must  be  satisfied  where  XCe^)  =  log  X(eJUJ).  This  is  satisfied  when 


JUk 


r1 

X.(ejtiJ)  =  J  arg'[X(ejr) 


(2.12.4) 


and 


arg[X(ejw)l  _  =  0  (2.12.5) 

,jj=0 

This  solution  cannot  be  solved  exactly  numerically  due  to  the  integra¬ 
tion  but  several  good  algorithms  do  exist  and  good  results  were  obtained 
using  Tribolet's  program  [7]. 


It  is  these  complications  in  the  complex  log  that  will 
hinder  the  process  of  calculating  the  complete  cepstrum  totally  witiin 
an  array  processor,  a  dedicated  peripheral  co-processor  for  array 
arithmetic  and  FFT  calculations,  in  a  one-step  operation.  It  is 
possible  to  do  the  entire  operation  within  the  array  processor  and 
economical  to  do  so  in  the  long  run,  however  specialized  software 
will  be  needed  to  implement  the  phase  unwrapping  routine  of  [7]. 

The  second  topic  dealing  with  noise  impulses  that  are  not 
Gaussian  in  shape  was  handled  with  some  simulations.  The  concern  here 
is  the  error  introduced  in  the  calculation  of  the  cepstrum  of  the  re¬ 
verberant  medium's  transfer  function  due  to  a  noise  pulse  whose  cep- 
stral  energy  is  not  limited  to  an  impulse  at  x  5  0,  An  ideal  Gaussian 
pulse  has  a  cepstrum  of  the  form  a6(l)  and  only  affects  the  x  =  0 
portion  of  the  transfer  function  cepstrum.  Simulations  were  done  using 
several  pulse  shapes  of  the  form  e  1  1  / E.  For  n  greater  than  or  equal 

to  2  the  cepstra  were  impulses  at  t  =  0.  With  n  =  1  the  results  were 


not  as  ideal  but  still  very  promising. 
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Figures  2.12.1,  2.12.2  and  2.12.3  show  a  512  point  signal  of  e 
its  fourier  transform,  and  its  cepstrum  respectively.  This  cepstrum 
shows  a  small  error  introduced  for  very  small  value  of  i.  An  improve¬ 
ment  of  this  small  error  is  shown  in  Figures  2.12.4,  2.12,5  and  2.12.6, 
which  are  the  same  respective  functions  but  using  2048  sample  points 
instead  of  512.  Again  the  error  can  be  reduced  by  using  more  sample 
points  of  the  collected  waveform  data. 

Figure  2.12.4  shows  the  noise  pulse  centered  at  zero  for  con¬ 
venience  of  calculations  and  to  reduce  the  numerical  error  in  calculat¬ 
ing  the  phase  which  is  zero  for  a  pulse  at  t  =  0.  The  time  plot  shows 
the  other  half  of  the  pulse  around  t  =  2048  due  to  the  FFT  program 
employed  in  the  simulations.  A  second  series  was  simulated  for  a 
shifted  noise  pulse.  Figures  2.12.7,  2.12.9  and  2.12.10  show  these 
results.  Here  the  pulse  was  centered  at  64  and  a  time,  frequency  and 
cepstrum  plot  are  shown  respectively.  The  Tribolet  phase  unwrapping 
program  removes  all  constant  phases  in  its  calculation  of  the  cepstrum. 
This  constant  is  measured  and  recorded  and  then  the  cepstrum  is  cal¬ 
culated  for  the  signal  with  this  constant  phase  removed.  For  plotting 
purposes,  this  constant  is  easily  reintroduced  with  the  cepstrum  by  a 
simple  shift  of  the  values  by  the  amount  of  the  constant.  In  this  case 
the  constant  is  always  equal  to  the  time  delay  and  the  cepstrum  shows 
a  spike  at  64,  the  center  point  of  the  delay  pulse.  Also  to  be  noted 
here  is  that  the  phase  in  2.12.9,  and  later  in  2.12.13,  has  not  been 
unwrapped . 
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Figure  2.12.9  Fourier  Transform  of  Delayed  Noise  Pulse; 

2048  points.  Dotted  line  is  magnitude, 
solid  line  is  phase. 


Figure  2.12.13  Fourier  Transform  of  Dual  Mm 
2048  points 
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The  pulse  in  the  cepstrum  due  to  the  pulse  shape  appears  at  t  =  0  as 
expected.  A  series  of  decaying  pulses  also  appear  in  the  cepstrum 
which  are  due  to  "harmonics"  of  the  integral  multiples  of  the  time 
difference  between  the  two  pulses.  The  doublet  functions  found  in  all 
the  cepstra  can  be  related  to  the  jto  term  and  the  pulse  shape  term 
which  appears  after  the  logging  operation.  This  transforms  to  a  deriv¬ 
ative  operation  on  the  impulses  in  the  cepstral  domain  added  to  a 
broadened  spike  function  due  to  the  pulse  shape. 

Using  the  dual  pulse  signal  of  Figures  2.12.12,  2.12.13  and 
2.12.14,  the  general  results  can  be  verified  mathematically.  The  time 
signal  is  of  the  form 


x ( t )  =  e  lC  Tli  +  ae  I t_T2 


Its  fourier  transform  is 


X(u)  =  2 


e^Tl 
1  +  u/ 


2a 


e^T2 


1  +  UJ 


2e^xi 


[1  +  aejuj(T2  "  Tl}] 


1  + 


U) 


(2.12.6) 


(2.12.7) 


(2.12.8) 


Taking  the  log  and  using  the  expansion  of  eq .  (2.5.12)  gives 


log  X(o>)  =  jWT1  +  log  2-log ( 1  +  ■/)  +  log[l  +  aejaj(T2  V 


(2.12.9) 


=  joJTj  +  log  2-log(l  +  u)^)  -  [-ae  2  T 1  ^ ^ 


(2.12.10) 


and  taking  the  inverse  fourier  transform  yields 


X(x)  =  Tl  ^  5  (x)  +  log  (2)6  (x)  +  P(t)  -  i?1  5[i(t,  -  rt) 


(2.12.11) 


=  T1  It"  <5('T^  +  l0g  +  ^T)  +  a(S(T2  "  TP  ~  T~  ^ (2 (t2  "  tl)) 

3 

+  f-  6(3(t2  -  Tj))-  •  *  •  (2.12.12) 

where 

P(t)  =  F-1  {-log  (1  +  uj2)}  (2.12.13) 

P( t)  is  not  easily  evaluated  but  it  can  be  seen  to  be  a  narrow  pulse 

2 

around  t  =  0,  since  1/(1  +  a)  )  is  a  narrow  pulse  whose  cepstrum  will 
be  even  sharper.  The  last  term  in  Eq.  (2.11.11)  is  a  series  of  alter¬ 
nating  signs  decaying  impulses  (assuming  a  is  less  than  1).  This  is 
verified  by  Figure  2.12.14.  In  this  figure,  the  constant  delay  factor 
of  x ^  has  been  reinserted  so  that  the  initial  spike  occurs  where  the 
first  time  pulse  occurs.  As  seen  in  the  figure  and  the  equations, 
the  third  pulse  in  the  cepstrum  which  always  occurs  at  2(t0  -  x^)  may 
not  always  be  ignored  in  dereverberation  calculations. 

A  few  comments  should  be  made  here  about  the  Tribolet  phase 
unwrapping  program.  In  general,  it  seems  to  have  problems  with  ideal 
functions  and  takes  much  longer  to  compute  the  cepstra  of  noiseless 
numerical  data.  Also  as  noted  in  Tribolet ’s  presentation,  there  are 
two  values  which  can  be  adjusted  to  improve  the  accuracy  of  the  rout¬ 
ine;  however  this  will  substantially  increase  the  computation  time. 
Occasionally  some  very  irregular  oscillating  pulses  were  obtained  in 
the  cepstra  with  some  input  pulses.  Finally,  although  not  used  in 
these  simulations,  all  calculations  should  be  done  in  double  precision 
as  was  suggested  by  Tribolet  for  improved  accuracy  and  better  results. 
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The  problem  of  deciding  how  many  waveforms  must  be  averaged 
to  obtain  a  good  estimate  of  the  necessary  time  averages  used  in  the 
mathematics  developed  earlier  is  indeed  a  difficult  one.  The  necessary 
waveforms  are  hard  to  simulate  for  later  use  in  actual  calculations 
for  the  purpose  of  coming  up  with  some  working  estimates  of  numbers 
needed  for  reasonable  accuracy.  Secondly,  little  is  known  about  the 
characteristics  of  these  waves  for  the  purpose  of  calculating  reason¬ 
able  numbers  to  be  averaged  for  good  results.  These  parameters  can 
best  be  found  by  trial  and  error  with  actual  data  while  closely  moni¬ 
toring  the  intermediate  results  and  comparing  them  to  the  mathematical 
ideals . 

Finally  some  comments  will  be  made  here  about  numerically 
evaluating  results  for  equations  presented  in  Section  3.2  of  this 
report.  An  iterative  method  is  developed  for  improving  the  accuracy 
of  some  calculated  results.  Iterations  are  suggested  to  be  continued 
until  little  change  is  observer  from  one  step  to  the  next,  at  which 
point  it  is  assumed  that  the  results  are  sufficiently  accurate.  Since 
these  iterations  may  be  costly  and  time-consuming,  some  experimentation 
should  be  done  comparing  the  end  results  of  the  completed  iterations 
to  several  partially  completed  iterations  and  determine  a  lower  limit 
on  the  number  of  loops  necessary  for  good  results.  Also,  an  obvious 
check  should  be  included  in  the  program  to  determine  the  possibility 
of  divergence  in  some  situations.  These  iterations  might  be  done  com¬ 
pletely  in  an  array  processor  but  would  certainly  require  much  spec¬ 
ialized  software. 


[il>] 


2.13  Relations  Between  Cepstra  and  Predictor  Coefficients 

Alternate  processing  of  signals  in  speech  and  seismic  studies 
frequently  makes  use  of  adaptive  predictors  to  establish  signal  struc¬ 
ture.  One  might  wonder  whether  such  processing  would  be  of  value  in 
the  context  of  the  dereverberation  problem.  In  this  section  some 
existing  literature  is  reviewed  which  shows  that  a  subtle  relation 
exists  between  predictive  processing  and  cepstral  processing.  In  the 
course  of  making  this  connection  it  will  be  shown  that  it  makes  use  of 
a  relation  (2.13.19)  which  was  found  to  be  useful  in  earlier  studies. 

Adaptive  processing  [11]  can  be  employed  to  identify  certain 
linear  systems  whose  driving  source  is  not  accessible;  that  is,  the 
source  cannot  be  chosen  and  its  value  is  not  known.  Adaptive  process¬ 
ing  in  this  case  can  only  operate  on  the  observed  output  of  the  system 
or  process.  One  approach  consists  of  forcing  a  linear  predictor  to 
predict  a  future  system  output  based  on  only  the  past  observed  system 
outputs.  In  forcing  the  predictor  to  adapt  to  minimize  the  error  of 
prediction,  a  great  deal  is  learned  about  the  process  structure. 

In  the  case  of  the  single  source  dereverberation  problem  of 
Section  2.4,  this  section  demonstrates  a  means  of  obtaining  the  cep- 
strum  of  the  received  signal  for  use  in  finding  the  channel  response 
by  Equation  (2.4.5).  If  the  p  predictor  coefficients  b^,  k  =  1,  2, 

...p  of  y(t),  the  average  time  signal  received,  are  known  then  the 
discrete  cepstral  coefficients  c  can  be  found  either  directly  or 


recursively . 


An  optimum  set  of  predictor  coefficients  can  be  found  for  a 
given  signal  [81]  in  terms  of  the  signal's  autocorrelation  function 
and  variance.  Given  an  input  signal  y(t)  or  in  discrete  form  y(n) 
with  a  predicted  value  y(n)  then  the  prediction  error  signal  is 


Since 


d(n)  =  y(n)  -  y(n) 


x(n)  =  /  b  x(n-k) 

k=l  * 


(2.13.1) 


(2.13.2) 


the  optimal  predictor  coef f icients ,  b,  's,  are  the  ones  which  minimize 

kC. 


a d2  =  E{d2(n)}  =  E{[x(n)  -  x(n)]2} 


■  E{[x(n)  -  I  b  x(n-k) ]  } 
k=l 


(2.13.3) 


(2.13.4) 


They  are  found  by  setting  the  partial  derivatives  of  ad  with  respect 


to  the  b^'s  to  zero,  i.e., 


do,  p 

-rr —  =  -2E{  [x(n)  -  £  b,  x(n-k)]  x(n-j)}  =  0  ;  l<  j  £  p  (2.13.5) 

abj  k= 1 

This  can  be  rewritten  as 


E{[x(n)-x(n) Jx(n-j) )  =  E(d(n)x(n-j) )  =  0  ;  1  < j  <p  (2.13.6) 


E{x(n-j)x(n) }  =  V  b  E{x(n-j )x(n-k) }  ;  l<j<p 

k-1 


(2.13.7) 


Defining  $(j)  as  the  autocorrelation  function  of  x(n)  then  (2.13.7) 


becomes 


P 

<Kj)  =  l  b.c|>(j-k) 
k-1 


which  can  be  written  in  matrix  notation  as 


when 


p  =  Cb 


and 


C  = 


x 


1  p(l). 

P(l)  1  • 


P(P-1) 

P(p-2) 


P(p-l)  p(p-2)  .  .  .1 


The  b.  '  s  can  be  found  from 
k 


b  =  C_1p 


(2.13.8) 


(2.13.9) 


(2.13.10) 


(2.13.11) 


(2.13.12) 


Hardware  can  be  built  to  carry  out  these  functional  evalua¬ 
tions  and  output  the  optimal  predictor  values  automatically  when  an 
appropriate  signal  y(n)  is  input  (See  Figure  2.13.1).  This  equipment 
can  also  be  made  to  run  adaptively  with  updated  coefficients  returned 
periodically  which  track  a  time-varying  (nonstationary)  input  signal. 


Given  Y(z)  is  the  Z-transform  of  y(t)  and  also 

E  _k 

Y  (.  z )  =  )  b.  z  :  a  =  1  ;  a  /  0 


(2.13.13) 


0 


where  the  p  b^'s  are  the  least  linear  mean  square  predictor  coefficients 
of  y(t),  then  the  Z-transform  cepstral  coefficients  c^  are  defined 
as 

00 

In  Y(z)  =  Y  c  z“n  (2.13.14) 

i  n 

n=l 

and  can  be  related  to  the  b^  in  several  ways. 

The  well-known  recursive  relation  [10]  between  the  and 

c^  is  obtained  by  differentiating  (2.13.14)  with  respect  to  z  ^  and 

equating  equal  powers  of  z  \  giving 

n-1 

c  «  b  +  1/n  7  kc,  b  .  (2.13.15) 

n  n  ,  L.  k  n-k 

k-1 


This  is  very  straightforward  and  most  useful  since  all  of  the  cepstrum 

except  the  region  around  the  origin  is  needed  to  calculate  the  channel 

response  for  dereverberation. 

A  second  and  non-recursive  relation  between  the  c  and  b. 

n  k 

was  derived  by  applying  a  formula  for  the  division  of  two  power  series 
to  the  ratio  -A'(Z)/A(Z)  obtained  after  differentiating  the  left  side 
of  (2.13.14)  [11].  This  yields 


-1 ,  , . n 

cn  *  ~ (_1) 

n  n 


b  ^  1  0  0  •  •  •  0 


2b2  bx  1  0  •••  0 


nb  b  .  b  0  . .  .b. 
n  n-1  n-Z  1 


(2.13.16) 
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Due  to  the  awkwardness  in  evaluating  this  determinant 
another  formulation  for  finding  the  was  derived  in  [11].  Using  the 
series  expansion  for  ln(l+x)  after  substituting  (2.13.13)  into  (2.13.14) 
and  manipulation  around  the  summation  signs  yields 


(k.+k-+-**k  -1)!  ,  . 

c  =  -I  - - -  (-b  )  1  ...  (-b  )  p 

n  k  «...k  !  1  P 

1  P 


(2.13.17) 


where  the  sum  is  taken  over  all  k  such  that 

r 


k,  +  2k„  +  • • •  pk  =  n 

12  P 


(2.13.18) 


Although  the  formulation  of  (2.13.17)  is  not  as  simple  as 
that  of  (2.13.4)  it  is  definitely  more  mathematically  tractable  and 
computationally  efficient. 

It  was  also  shown  in  [11]  chat  the  inverse  relationship  of 
(2.13.17)  can  be  found.  Equation  (2.13.13)  and  (2.13.14)  yield 


l  b  z"n  *  exp  [  l  c  z~k] 
n=Q  n  k=l  K 


(2.13.19) 


Expanding  the  exponential  function  into  a  power  series  gives 


n-0 


b  z 
n 


-n 


=  l  ±  [  l  c.  Z"k] 
m  1  L  K  J 
m=0  k= 1 


(2.13.20) 


which  after  tedious  manipulations  around  the  summations  and  evaluation 
at  appropriate  powers  of  m  yields 


‘n-I 


(-c.)  1  —  (-c  )  n 
1 _ n 

k  «  *  *  '  k  ! 

1  n 


(2.  3.21) 


(2.13.22) 


where  the  sum  is  taken  over  all  k  such  that 

P 

k,  +  2k„  +  • ■ •  +  nk  =  n 
12  n 

and 

k,  +  k„  +  •••  +  k  =  m  (2.13.23) 

1  2  n 

The  notation  used  in  this  section  has  been  that  of  the 
Z-transf orm.  However,  this  is  just  a  more  general  form  of  the  DFFT 
where  e^1  is  substituted  for  z.  The  results  here  can  thus  be  applied 
to  the  problems  stated  in  the  other  sections  of  this  work. 

In  summary  then  it  has  been  shown  that  the  p  coefficients 
b^  produced  by  the  optimum  linear  predictors  are  related  to  the  cepstral 
Z-transform  coefficients  c^  by  several  forward  and  reverse  mapping 
equations  which  have  been  derived  again  from  the  relation  of  equation 
(2.13.19). 

2.14  Errors  Due  to  Estimation  Noise 

Fluctuations  in  moment  estimates  or  other  averaging  functions 
which  operate  on  real  stochastic  data  add  a  certain  amount  of  noise  to 
the  results.  Increasing  the  number  of  signals  used  in  these  averaging 
processes  reduces  the  amount  of  noise  but  also  increases  the  amount  of 
computing  necessary  to  obtain  results.  This  section  discusses  the 
tradeoff,0  between  the  number  of  data  records  averaged  and  the  uncer¬ 
tainty  in  the  resulting  cepstra  where  reverberation  must  be  discerned 


and  separated. 


As  a  result  of  this  additive  noise,  Eq. (2.9.4) is  modified 


to  become 


y(t)  =  h^(t)*£  h  (t)  *  ai  5(t  -  T±)  4  n(t) 


(2.14.1) 


or  in  the  frequency  domain 


Y((u)  =  H  (oj)  Y  H  .  (u)  4  N (co) 

r  .i  pi 


(2.14.2) 


If  the  average  of  the  noise,  N(oj)  ,  is  zero,  we  still  have 


Y(w)  =  H  (oj)  L  a.e"jaJTi  •Hr,(a>) 
r  i  i  P 


(2.14.3) 


However,  any  estimate  for  Y (w) ,  say  Y (oj)  ,  possesses  some  fluctuation 
A[Y(oj)]  about  its  mean.  If  for  this  analysis  here  we  assume  H  (aj)  =  1 
or  that  the  average  pulse  shape  is  an  ideal  function,  then 


Y (on)  =  Y (a>)  4  A [Y (oo)  ]  *  Hr(tu){£  a^e  4  A[£  a^e 


0  4  A [N  (to)  ] 


(2.14.4) 


log{Y(dj)  4  A[Y(to) ]  -A[N (oo)  1  }  =  log  H  (w) 


4  log{£  a^e  ^WTi  +  A[£  a^e  ^WTi] } 


(2.14.5) 


The  weak  noise  case  will  be  considered  here.  Assuming  all  fluctuations 
are  small  compared  to  their  averages  as  is  in  the  case  of  high  signal 
to  noise  ratios,  then  Eq .  (2 . 14 . 5)  becomes  to  a  first  approximation 


log  Y  (ui)  =  log  YU)  +  A  [log  Y  U)  ] 


(  2  .  U  .  6  ) 


=  log  {Y U)  +  A[Y (go)  ]  i 


s  log  YU)  + 


A  [Y  (uj)  ] 


(2.U.7) 
(2.  14.3) 


YU) 


s  log  H^U)  +  log  a^e 


-jojxt  +  AfNU)  ]  +  _ i 


M  /  aie 


-y-^u 


YU) 


4  a^e  -1  " '  i 


(2.14.9) 


The  last  two  terms  are  error  terms  showing  the  departure  of  Log  YU) 
from  the  corresponding  noise-free  answer.  Terms  of  the  form  A[Y|U[N' 


have  been  ignored  and  Y U)  is  assumed  not  to  be  zero.  Now  separating 
out  the  fluctuations  we  find 


A l log  YU)]  =  ]  +  — — 


A[£  a.re  JcoTi] 


YU) 


l  aiE 


~J0.Ti 


(2.14.10) 


provided  the  estimator  YU)  is  unbiased  (i.e.,  YU)  =  YU)  ).  Various 
statistics  of  the  fluctuations  of  /(t)  can  be  computed  using  this 
approach . 


Relaxing  the  restriction  that  H  U)  *  1  will  only  increase 
the  error  slightly.  The  term  affected  is  the  1  ist  one  in  equation 
2.14.10.  A  similar  analysis  as  the  foregoing  one  can  be  performed  on 
the  two  dimensional  dereverberation  derivation  which  results  in  similar 


bounds  on  the  fluctuations  of  the  average  estimates. 


Turning  now  to  the  problem  of  noise  added  to  the  phase  of 
the  Fourier  transform  of  the  processed  signal,  this  subsection  will 
demonstrate  how  phase  noise  affects  the  phase  unwrapping  routine  nec¬ 
essary  for  the  computation  of  the  cepstrum.  As  explained  in  [7]  the 
phase  unwrapping  algorithm  occasionally  runs  into  ambiguities  (of 
factors  of  2tt)  in  calculating  the  arguments.  In  such  instances  an 
intermediate  point  is  evaluated  between  the  last  point  and  the  new 
point  where  the  ambiguity  arises.  This  midpoint  is  used  to  resolve 
the  ambiguity  by  its  nearness  to  one  of  the  two  possibilities  and 
hopefully  direct  the  phase  unwrapping  routine  to  the  correct  possibi¬ 
lity  of  the  ambiguity.  A  problem  arises  if  phase  noise  is  present  on 
the  intermediate  point  that  is  large  enough  to  place  that  point  closer 
to  the  incorrect  possibility  of  the  ambiguity.  This,  in  turn,  will 
induce  a  discontinuity  in  the  unwrapped  phase  of  2tt  and  cause  an 
erroneous  cepstrum  to  be  computed. 

To  obtain  an  upper  bound  on  the  probability  of  an  incorrect 
phase  and  cepstrum  given  an  amount  of  random  phase  noise  due  to 
measurement  and  numerical  roundoff  error,  a  derivation  will  be  per¬ 
formed  which  indicates  the  amount  of  averaging  on  the  ensemble  records 
and  the  necessary  length  T  of  each  record  to  achieve  that  bound.  If 
x(t)  and  y(t)  are  two  stationary  random  processes  representing  the 
lumped  phase  noise,  it  has  been  shown  [82]  that  the  mean  values  of 
R  (  T,T)  over  the  ensemble  of  records  of  length  T  is 


<R 

xy 


(l,T)> 


*[ 


<x(t)y (t  +  t)>  dt 

R  (x)dt 
xy 


(2.14.11) 

(2.14.12) 


*  .N 


wv 
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<R  (t,T)>  =  R  (T) 

xy  xy 


(2.14.13) 


The  variance  is  defined  by 


v  <t't)  ■  <*4  -  r4(t) 


(2.14.14) 


where 


2  1  fT  fT 

<R„„  (t,T)>  »  — ^  I  <x(t)y(c  +x)x(u)y(u  +  t)>dt  du 

T  o  o 


xy 


(2.14.15) 


using  the  stationary  hypothesis  and  the  definition 


P  (t » t »u)  »  <x(t)y (t  +  x)x(u)y (u  +  t) > 
xy 


(2.14.16) 


B 


then 


(x.t.u)  =*  P  2  (x,v)  ;  v  *  u  -  t 


(2.14.17) 


and  substituting  (2.14.17)  into  (2.14.15)  with  dv  m  -dt  gives 

fT  ru 


<r4 


P  (x.v)dvdu 
xy 


o  u-T 


(2.14.18) 


>  * 

9 


Following  the  derivation  in  [82]  it  can  be  shown 
fT 


a4(T>T)  •  ? 


(T  -V)[P  2  (TPV)  -  R  2  (T)]dv 
xy  xy 


(2.14.19) 


>.u .  *-  .  "  ■  ■  *■  «4  »’■  ■ 


In  this  application  the  length  of  the  records  for  averaging 


determines  a  (i, T) ,  the  standard  deviation  on  the  probability  of  the 
intermediate  phase  point  position.  This  standard  deviation  determines 
the  probability  that  the  intermediate  phase  point  will  be  wrong  and  is 
equal  to  Q(<)  where  Q(-)  is  the  area  under  the  Gaussian  tail  and 


<  *  R  (T )/a  (T,T) .  Q(<)  is  the  probability  of  an  erroneous  jog  and 

xy  xy 

is  equal  to  the  probability  of  a  cepstral  error,  a  (T,T)  also  puts 

xy 

a  limit  on  the  deviation  of  every  point  on  the  unwrapped  phase  from 


its  true  value  and  can  be  used  to  limit  the  phase  noise  for  cases 
where  no  erroneous  jogs  are  present  from  improperly  selected  ambiguities 


PART  3 


DUAL  SOURCE  DEREVERBERATION 

3.1  The  Dual  Source  Problem  Formulation 

If  two  sources  are  present  in  the  medium,  each  having  the 
same  form  of  time  function  as  the  single  source  discussed  previously, 
then  the  signal  Y(oj),  measured  at  a  sensor  would  be  described  by 

Y(oj)  *  Hrl(ai)[Iaile“jaJTil]  +  H  2(<u)  [[ak2e‘jaJTk2]  (3.1.1) 

i  k 

Proceeding  as  before  by  averaging  both  sides  of  (3.1.1)  gives 

Y(w)  -  Hrl(w){£aue'jWTil]  +  H^Cw)  [^k2e“ja,Tk2]  (3.1.2) 

i  k 

*  Hrl(u)  [la^e-^1]  +  Hr2(w)  [^ak2e_jaJTk2]  (3.1.3) 

x  k 

*  Hrl(0j)Ql(U))^^il  +  Hr2(u)Q2(w)^\2  (3.1.4) 

i  k 

assuming  the  a/s  and  t\'s  are  independent. 

Equation  (3.1.4)  first  of  all  does  not  lead  to  a  solution 

of  H  ,  (w)  or  H  O(oj)  since  there  are  two  unknowns  in  one  equation, 
rl  r  l 

Secondly  it  shows  how  the  presence  of  an  unknown  source  will  destroy 
the  information  available  on  H^(w). 

Before  proceeding  on  to  another  approach,  some  preliminary 
background  mathematics  will  be  covered  for  an  array  of  sensors  in  a 
medium.  For  N  sensors  shown  in  Figure  3.1.1, 


Figure  3.1.1.  Signal  Path  Delays  from  Points  P^  and  ?2  in  a 
Medium  to  N  Sensor  Signals  yi(t) 


the  signal  at  sensor  i  from  the  source  v^(t)  at  P^  is 


y±(t)  =  vL(t  -  T^) 


(3.1.5) 


where  is  the  path  time  delay  from  P^  to  the  ith  element.  The 
array  pattern  for  the  array  "looking"  at  ?2  is 


n 


r(t)  "  +  t;2) 


(3.1.6) 


where  a^  is  the  gain  of  sensor  i.  Substituting  (3.1.5)  into  (3.1.6) 
gives 


z(t) 


N 

l 

i-1 


aiVl(t  '  TIl 


+  Ty 


7.  ((Jj)  [  £  a.e  ^aJTi]e'^aJtda) 
1  i-1  1 


(3.1.7) 
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■  ;  *  .  *  '  s' 


S  $ 

v,  • 

>■  % 

£ 

N 


N  N 


22*  -  F”  [Ft  l  l  a  a*R  (x  -  t  )]] 
i-1  k-1  vlvl  1  16 


(3.1.15) 


l  l  aiaksv  v  <a))ejL)(Ti  "  Vdw 

i*l  k-1  V1  1 


sv  v  <w>  i  l  a.a*eja)Tie':ia)Tkdaj 

v  1  v  1  4—1  1 _ 1  A  ** 


11  1-1  k-1 


(3.1.16) 


(3.1.17) 


sv  v  («)  l  aiejaJTi  l  a*e  jwTkc 
11  i=l  k=l 


(3.1.18) 


S  £ 

> 

>• 

<\  m  * 


S  (w)  I  a.e  ;’UiTl  du> 
11  i=l  1 


(3.1.19) 


y 


This  last  equation  will  be  useful  for  describing  the  averaged  array 
signal  for  the  steered  array. 


Returning  to  the  dual  noise  source  in  a  reverberating 


;  .. 
■> 


c. 

»*• 

r- 

i 

% 

a 

•»  ;  * 

I  a 

* 

w;  ,v 
*  ,  ^ 


channel,  this  can  be  shown  graphically  as  in  Figure  3.1.2. 


vx(t) 


v2(t) 


11 


yx(t)  y2(t) 


yN(t) 


Figure  3.1.2  Path  Impulse  Functions  from  Sources  v^(t)  and  v2(t)  to 
N  Sensors  Signals  y^(t) 
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Here  the  h's  represent  the  path  impulse  functions  and  the  v's  the 
noise  sources.  With  x^ (t)  defined  as  the  signal  from  source  j  to 
sensor  i  convolved  with  the  path  transfer  function  as 


xn(t)  *  Vt^ct) 


xi2(t)  *  v2(t)*h  ,(t) 


(3.1.20) 

(3.1.21) 


and  yi(t)  the  signal  into  sensor  i,  then 


yt(t)  =  ai[xil(t)  +  x  2(t)] 


(3.1.22) 


Now  z  becomes 

N 


-  Ti) 

1=*1 


l  aifxil(t 
i=l  1 


Til)  +  xi2(t  ‘  Ti2)] 


(3.1.23) 


(V  (ui)  [  l  H..(w)a  e"juTil] 

1  i=l  xx  1 


+  V2(oj)  [  l  Hk2(w)ake"ja)Tk2]}e3aJtdto 
k*l 


(3.1.24) 


oo 

* 

N 

2 

{s  (to) 

vlvl 

— OO 

I  H  (u)«  «'3“TU 
i=*l 

+  S  (u) 

V2V2 

N  W 

+  2S  (to)  y  H..  (a))a,e_:iUJTil  \  H .-(u)a  e_:,UJTi2  }dco 


12  i-1 


(3.1.25) 


If  and  v 2  are  uncorrelated,  then 


C°°  N  2  N 

<sVl«  l  11 

1  1  i*l  2  2  i=l 


(3.1.26) 


where 


Sv  v  =  E[vi(t),vk(t  -  T)]e  ^L°Tdw 
viv  k 


(3.1.27) 


Unfortunately  this  leads  to  one  equation  with  2N  unknowns  which 
can't  be  solved  for  the  It  H^'s  and  N  H^'s. 

However,  taking  the  signal  at  the  k1"*1  sensor 


yk(t)  *  akChkl(t)*Vl(t)  +  hk2(t)*V2(t)] 


(3.1.28) 


ik{\l(U,)Vl(0j)  +  \2(a))V2((J0)}eJ  dt  (3.1.29) 


and  forming  the  averaged  product  zy* 


ZYk  "  H  (  I  ailhil(t)*Vl(t  -  Til> 

T  i*i 

+  hk2(t)*v2(t  -  Ti2)]Ha*[hkl(t)*v*(t) 


+  hk2(t)*v*(t)]}dt 


(3.1.30) 


zyk 


N  1 

-  I  ih 


i=l 


aiaklhii<t)*vi(t 


Til)  ’ 


+  f  aiak^hil(t)*vl(t  '  Til)  *  hk2(t)*V2(t)]dt 


+  f  aiak[hi2(t)*v2(t  '  Ti2)  ’  hkl(t)*v*(t)]dt 


aia^thi2 Ct> *v2 <t  -  Ti2)  •  hk2 (t)*v2 (*-)  ]dt} 


with 


1 

T 


T 


aiak^hil^*vl^t  “  Til^  '  hkl(t)*v*(t)  ]dt 


-  alakhil<-Tll)*hkl(-Tll)*Ev1v1(-Til) 
substituted  into  (3.1.31)  yields 

**£  "  J1aiak{hii(-Tii)*hki(-Tii)*Rv1v1(-Tii) 

+  hil(_Til)*\2('Til)*Rv1v2(_Til) 

+  hi2(-Ti2)*hkl(-Ti2),lrRv2v;L("Ti2) 

+  hi2^-Ti2)*hk2("Ti2)*Rv2v2(-Ti2)} 


(3.1.31) 


(3.1.32) 


(3.1.33) 


or  in  terms  of  the  Fourier  transform 


zyk  *  J  J1aiak{Hil(aj)Hkl(u)Sv1v1(u,)e  i; 


+  H±1  (a>)Hk2  (a))Sv^((jj)e“ja,Til  +  H^CujH^dujS  (w)e'ja>Xi2 


+  H12(w)  ^(uJS  (u)  e"ja)Ti2}duj 


(3.1.34) 


Regrouping  terms  produces 


2yk  = 


{akSv1v1(w)Hkl(a,)  J  Hil(w)  V  11 


+  V  11 


+  ak%v1(a,)Hk1(u))  ^Az^V"^12 
2  1  1=1 


+  *{%»,,  <“>>^2  <“>  J1H12(“)aie"Jl0Ti2,d“ 


(3.1.35) 


v.  and  v„  are  independent  then  S  =  S  =0  and 
1  2  V2V1  vlv2‘- 


(akSv1v1(“>1W“) 


+  akSv.v  <“)Hk2(“)  J. “i2(“)al' 


>  ^U)Ti2}dw 


(3.1.36) 


With  the  array  looking  at  v  ,  the  second  term  in  (3.1.36)  will  be 
suppressed  and 


CO 

‘fv  T  MHklM 

—00 


N 

y  H..,Ojj)a.e  JtiJTil}doj 
il  l 


(3.1.37) 


The  error  in  (3.1.37)  will  not  be  negligible  if  the  array  has  a  sig¬ 
nificant  side  lobe  "looking"  at  or  if  the  two  sources  are  slightly 
dependent.  For  this  situation,  two  error  terms  must  be  included  in 
the  expression  and 


zy: 


*  = 


N 


akSv  v.  (w)Hki(w)  l  H  (u»a  e"  il  do.  +  e  +  s 
1  1  i=l 


2  2  12 

(3.1.38) 

Numerical  evaluation  of  the  terms  in  (3.3.37)  may  be 
achieved  by  delaying  y^  to  form 


z(t)y£(t  -  x)  = 


N 


akSv  v,  l  H11(U)a.e'J“<TU'T)du, 

1  1  1=1 


-jU)(T.  -T) 


akSv2v2to)Hk2(“)  12 


dto 


(3.1.39) 


-jOj(X.,-T)  , 

e  il  dw 


(3.1.40) 

Taking  the  Fourier  transform  of  both  sides  of  (3.1.40)  with 


respect  to  x  yields 
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\  v 


ft  •: 
t  ■■ 


VU)  =  a^Sv1v1(w)Hkl(u)  J1HilCu)V"3“Tl1 


(1.1.41) 


*V 

[%' 

[•«' 


where 


z(t)y*(t-T)e  ^“Tdt 


(3.1.42) 


Letting  S  *  S  (to),  H.  =  H.7(to),  and  a.  =  a.e  JWTii,  (3.1.41)  can 

» 1  IX  X  X 

be  rewritten  as 


\  =  SHk[H1a1  +  H2a2  +  ...  +  H^]  ;  k-1,2,  ...  N 


(3.1.43) 


v 

> 


This  is  a  set  of  N  nonlinear  quadratic  equations  to  be  solved  at  each 

frequency,  to,  of  interest.  The  N  equations  come  from  the  N  possible 

cross-products  of  z  and  y^,  i=l,2,  ...  N.  The  solution  to  this  set  of 

equations  follows  in  the  next  section. 

For  the  special  case  of  impulsive  signals,  ^  (to)  = 

Q(to)Q(to)^'a.a.  and  S  (u)  can  be  removed  from  (3.1.41)  using  the 
J  vlvl 

cepstral  techniques  described  in  Section  2.4.  Thus 


Kk(x)  =  Hkl(x)  +  log[H11(u)aie  J  11  + 


B 


+  H^(w)aNe  -^a,TNl]e^aJTdto 


(3.1.44) 


for  T  ^  0  and  a^  independent  of  T\.  Inverting  the  cepstrum  leaves 
^(to)  ~  (to)  [H^  (to)a^e  ^11  +  ...  +  H^Oto^e  ^Nl]  (3.1.45) 


3.2  Solution  to  the  Dual  Source  Nonlinear  Quadratic  Equations 


The  N  nonlinear  quadratic  equations  are  as  follows : 


h  =  HlUlHl  +  a2H2  +  +  aNV 


4  -  Hjla^  +  a2H2  +  ...  +  a^] 


*N  =  ValHl  +a2H2  +  +  aNV 

Multiplying  both  sides  of  equation  i  by  a^  for  i  =  1,2, 
a^K^  *  a^H^[a^H^  +  a2^2  +  •••  + 

a2K2  *  a2H2[a^H^  +  a2H2  +  •••  + 


(3.2.1) 


N  gives 


WalHl  +  a2H2  + 


.  +  a. 


Now  adding  all  N  equations  together  yields 


alKl  +  a2K2  +  *  * ’  +  aNKN 


(3.2.2) 


[a^  +  a2H2  +  ...  +  a^Ha^  +  a^  +  ...  +  a^]  (3.2.3) 


/alKl  +  a2K2  +  •  •  •  +  aNKN  ~  ^alHl  +  a2H2  +  •••  +  aN*V  =  C  (3,2,4) 


Substituting  back  into  the  N  equations  in  (3.2.1)  results  in 


**  -  V  aiHi  +  *2*2 +  ■■■  asV 


(3.2.5) 


which  implies 


\mT  :  k=1’2’ 


...  N 


(3.2.6) 


This  is  a  closed  form  solution  of  the  N  nonlinear  quadratic  equations 
to  be  calculated  for  each  frequency,  w,  of  interest. 

3.3  Improving  the  Accuracy  of  H.,  and  H.„  and  Image  Enhancement 


The  incomplete  suppression  of  by  the  array  looking"  at 
will  give  rise  to  errors  in  the  calculations  of  the  N  H^Cco) 
terms  and  likewise  when  steered  to  for  the  N  terms.  These 

errors  are  due  to  the  imperfect  beam  pattern  of  the  array  and  are 
largest  when,  while  the  array  is  "looking"  at  V^,  is  directly  in 
the  path  of  one  of  the  array's  largest  side  lobes.  Obviously  one  way 
of  reducing  these  errors  would  be  to  optimize  the  array  pattern  to 
reduce  side  and  grating  lobes  to  negligible  amplitudes.  The  second 
and  more  expensive  way  with  regard  to  computation  time  is  to  reduce 
the  errors  by  iterating  on  the  solution,  using  each  previously  cal¬ 
culated  estimate  of  the  H's  to  improve  the  next  approximation. 

The  theory  behind  this  procedure  is  that  with  two  sources 
in  the  medium,  the  small  error  in  measuring  the  H^'s  is  a  known 
function  of  the  H^’5  anc*  v^ce  versa«  The  first  estimate  of  the 
is  plugged  into  this  known  function  to  reduce  the  error  in  the 
approximations.  Now  with  an  approximation  for  the  H^'s,  the 
values  can  be  recalculated  with  a  smaller  error.  This  process  can  be 


iterated  until  the  changes  in  and  from  one  iteration  to  the 


next  is  negligibly  small. 

The  algorithm  for  this  procedure  follows. 

»  Set  Hi '  hz  ’ 

2)  Aim  the  array  at  and  solve  for  with  *  zy*  - 
k  =  1,2,  ...  N  using  (3.2.4)  and  (3.2.6)  (for  all  ui) . 


3)  Calculate  *  H^ui)  f  £  Hil(a>)aie"JWTilJ ;  k  =  1,2,  ...  N 

4)  Aim  the  array  at  Vj  and  solve  for  with  ■  zy*  -  L^; 
k  *  1,2,  ...  N  using  (3.2.4)  and  (3.2.6)  (for  all  ui) . 


5)  Calculate  I  H^O^a^e  -^UiTi2  ] ;  k  *  1,2,  ...  N. 

6)  Go  back  to  (2)  unless  the  changes  in  the  H^'s  and  H^’s  are 
sufficiently  small. 

Image  enhancement  by  the  removal  of  the  echos  of  a  medium 

containing  two  sources  must  be  done  in  two  steps.  The  echos  due  to 

each  source  must  be  removed  separately.  The  necessary  analysis  will 

be  given  for  a  medium  containing  two  independent  sources.  The  image 

of  the  field  is  z  (t)  and  is  obtained  by  calculating  z(t)  of 
xy 

Eq.  (3.1.23)  at  every  point  on  some  cartesian  grid  spanning  the 
field.  It  is  assumed  that  the  grid  is  fine  enough  to  permit  easy 
resolution  of  the  peak  and  null  points  of  the  field. 

In  order  to  deresonate  the  signal  z^(t),  the  peaks  in 
the  image  must  be  separated  and  classified  as  to  which  of  the  two 
sources  they  are  caused  by.  To  achieve  this,  it  is  desirable  to  find 
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ZgCt)  at  a  peak,  which  is  due  to  only  one  source  where  ZqCO  is  z(t) 

evaluated  at  a  particular  peak.  This  will  insure  that  all  the  peaks 

in  the  time  averaged  product  zxyzQ(t)  will  be  only  the  peaks  in  the 

total  image  zxy(t)  that  are  due  to  the  source  which  formed  the  peak 

Z0^t).  Finding  a  suitable  ZgCt)  can  best  be  done  by  trial  and  error. 

First  choose  a  large  peak  in  z  (t)  and  set  z  (t)  equal  to  that 

xy  u 

value.  Form  the  product  z^z^Ct)  and  compare  it  to  2}  (t).  If  it 

has  fewer  peaks  than  zj^(t),  then  zQ(t)  is  uniquely  formed  by  one  of 

the  two  sources  and  is  a  good  peak.  If  not,  the  field  will  have  to 

be  searched  for  another  zQ(t).  Another  peak,  z^(t)  must  also  be 

found  which  is  uniquely  formed  by  the  second  source.  Again  trial  and 

error  is  the  best  method  for  finding  a  solution.  The  check  for  a 

good  Zp(t)  is  that  the  product  zxyz^(t)  has  substantially  different 

peaks  and  nulls  than  z  z_(t)  and  that  the  sum  of  z  zAt)  and 

xy  U  xy  0 

z  zn(t)  us  similar  to  (t). 
xy  U  xy 

Deresonation  is  performed  by  simply  multiplying  the  signals 
from  the  N  sensors,  Y^(u),  i  =  1,2,  ...  N  by  the  inverse  of  the  path 
transfer  function  from  one  of  the  sources  to  the  sensor.  These  are 
the  inverses  of  the  and  calculated  at  the  beginning  of  this 
section.  Assuming  zQ(t)  is  due  to  source  1  and  Zg(t)  to  source  2, 
then  the  deresonated  source  1  image  is  calculated  from  z  (t)  where 
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by  calculating  z^z^Ct).  Again  by  adjusting  the  T_'s,  this  value 


can  be  found  at  every  point  on  the  cartesian  grid  spanning  the 
field.  Likewise  the  deresonated  image  of  source  2  is  found  from 


zc2zo(t)  where 

00 
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The  total  deresonated  field  is  the  sum  of  the  two  deresonated 
parts,  zc^Zg(t)  and  z^z^(t).  Ideally  this  sum  would  contain  only 
two  peaks;  one  at  each  of  the  positions  of  the  two  noise  sources. 
Thus  the  positions  of  the  sources  could  unambiguously  be  determined. 

3.4  Convergence  of  Iterative  Solution  of  and 

The  solution  of  the  nonlinear  quadratic  equations  derived 

in  Section  3.2  will  be  slightly  in  error  due  to  the  presence  of  the 

nonzero  error  terms  shown  in  (3.1.38).  Ignoring  the  e  term  for 

vlv2 

now  and  concentrating  on  £  it  will  be  demonstrated  how  the  iter- 

V2V2 

ation  procedure  outlined  in  Section  3.3  will  always  converge  on  the 
exact  answer  and  reduce  the  error  after  each  iteration  rather  than 
diverge . 

The  basic  equations  being  solved  are 
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p  -  Huaie-jaJTll  +  ...  + 


q  -  H12aie-ja)T12  +  ...  +  VyT^M 
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then  the  problem  is  of  the  form 


(3.4.6) 
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K2  -  rl^  +  sH2 


(3.4.8) 


where  it  is  assumed  q  <  p  and  r  <  s  as  is  the  case  when  the  array  is 
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steered  off  the  secondary  source.  The  first  iteration  assumes  qH2 


is  zero  so  contains  an  error  term  £. 
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(3.4.9) 
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For  the  second  source 
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3.5  The  Three  Source  Problem 

When  three  sources  rather  than  two  are  present  in  the 
medium,  the  equations  are  slightly  different  and  the  procedure  used 
to  arrive  at  a  solution  must  be  modified  although  the  same  basic 
technique  is  still  used.  Equation  (3.1.24)  becomes 
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and  if  v^,  v2  and  v3  are  uncorrelated,  (3.1.36)  becomes 


zy  l 


+  Sv9v,(u)Hk2(ui)  ^1Hi2(u))aie"']UJTi2 
2  2  1=1 

N 

+  Sv^v^(oj)Hk3(u))  l  H.3(aj)a.e‘:,UJTi3  dw  (3.5.2) 

Here  again  for  an  array  steered  to  look  at  the  last  two  terms  in 
(3.5.2)  will  be  small. 

This  fact  can  be  used  to  improve  the  initial  estimates  of 
Hfi ,  Hi2  and  H^3  by  iteration  using  the  same  technique  as  in 
Section  2.4.  The  algorithm  is  as  follows: 

11  Set  Lkl  ■  Lk2  mLu’°- 

2)  Aim  the  array  at  and  solve  for  with 

St  *  Zyk  ~  Lk2  ~  St3  ’  k  *  1.2,  ...  N  using  (3.2.4)  and  (3.2.6) 
(for  all  uj)  . 

N 

3)  Calculate  *  H^j^oj)  I  Hilaie  »  k  3  1.2,  •••  N. 


V  V  ■-  V. 
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4) 


Aim  the  array  at  and  solve  for 

\  "  v£  "  Lki '  Ha  ;  k“1-2- 


“k2  ”ith 
...  N  using 


(3.2.4)  and 


(3.2.6)  (for  all  ui) . 

N 

5)  Calculate  =  H^ui)  £  Hi2a.e-JtiJTi2  ;  k  =  1,2,  ...  N. 

i=l 

6)  Aim  the  array  at  and  solve  for  with 

=  zy*  -  ^  ;  k  =  1,2,  ...  N  using  (3.24)  and  (3.26) 


(for  all  oj)  . 


N 


7)  Calculate  Lk3  *  (ui)  [  H  a^"*-1  i3  ;  k  =  1,  2,  ...  N. 

1  i=l 

8)  Calculate  back  to  (2)  unless  H.  H,2  an<*  ^3  are  su^ f iciently 
accurate. 


3.6  Array  Dereverberation  Simulations 

In  order  to  test  out  the  theory  previously  derived  for  dual 
source  dereverberation,  a  set  of  simulations  was  performed.  Two 
independent  acoustic  sources  were  located  in  a  medium  in  front  of  a 
reflective  surface  which  would  create  a  simple  echo  from  each  source. 
In  this  type  of  situation  the  echo  can  be  treated  as  a  virtual  second 
source  directly  behind  the  reflective  boundary  and  equidistant  from 
it  as  the  real  source.  Figure  3.6.1  shows  the  relative  positions  of 
the  real  sources  in  front  of  the  boundary,  the  virtual  echo  sources 
behind  the  boundary  and  the  positions  of  the  four  sensors  used  to 
image  the  medium.  The  four  edges  of  the  image  plane  in  this  simula¬ 


tion  represent  perfectly  matched  non-ref lective  edges.  The  source 


pulses  were  taken  to  be  two-sided  decaying  exponential  acoustic 
emission  as  shown  previously  in  Figure  2.12.7. 

Simulations  were  done  initially  on  simpler  systems.  In 
the  first  case  shown  in  Figure  3.6.2  the  right  source  was  completely 
suppressed  and  the  reflective  surface  was  removed  to  show  the  correl¬ 
ation  image  of  a  single,  non-reverberating  signal.  Figure  3.6.3  is 
a  similar  image  of  the  right  source  alone  without  its  echo.  Both 
figures  show  large  peaks  where  the  sources  are  located  correctly 
but  with  extra  ripples  in  the  fore-  and  background  due  to  correla¬ 
tions  of  separate  pairs  of  received  signals.  These  would  be  greatly 
suppressed  if  a  larger  number  of  sensors  had  been  simulated  instead 
of  the  four  used  here  to  limit  the  excessive  costs  of  the  simula¬ 
tions  with  even  this  relatively  few  number  of  signals  being  correl¬ 
ated.  This  problem  will  show  up  on  all  the  simulations  in  this 
section. 

Figures  3.6.4  and  3.6.5  are  again  images  of  single  sources 
alone,  left  and  right  respectively,  however  this  time  the  reflective 
boundary  is  included  which  adds  an  echo  to  all  the  signals.  The 
figures  show  how  the  echos  form  a  peak  almost  as  large  as  the  source 
peak  at  the  correct  location  but  also  create  some  other  very  large 
peaks  around  the  source  position.  Already  it  would  be  difficult  to 
locate  the  true  source  when  there  is  only  one  emitting  an  acoustic 
signal.  Single  source  dereverberation  techniques  derived  in  Part  2 
produce  images  very  similar  to  the  ideal  simulations  of  Figures  3.6.2 
and  3.6.3,  respectively. 


When  both  sources  are  active  simultaneously  with  the 
inclusion  of  the  echos  off  the  reflective  boundary  and  the  signals 
are  processed  using  straight  correlation  techniques,  the  image  pro¬ 
duced  is  shown  in  Figure  3.6.6.  Here  is  a  classic  example  of  the 
complete  loss  of  the  ability  to  locate  the  sources  due  to  the  reverb¬ 
eration  and  the  existence  of  two  sources.  There  are  multiple  high 
peaks  distributed  throughout  the  plane  of  observation  and  in  some 
cases  the  maximum  peaks  are  not  even  located  over  either  a  real 
source  or  virtual  echo  position. 

As  a  benchmark  image  against  which  to  test  the  dereverber¬ 
ation  processed  image,  a  simulation  was  done  of  the  two  sources  operat 
ing  together  without  echos.  This  image  is  shown  in  Figure  3.6.7  and 
represents  an  image  formed  after  perfect  and  ideal  dereverberation. 
Ideal  dereverberation  is  in  general  impossible  because  an  antireso¬ 
nance  which  removes  the  echo  of  one  source  will  cause  an  additional 
resonance  on  the  second  source  and  echo.  In  some  cases,  the  dereson- 
ated  signal  may  be  worse  for  imaging  than  the  original  signal  with 
echos.  Figure  3.6.7  clearly  shows  the  portion  of  the  sources.  Again 
the  image  would  be  improved  if  more  sensors  and  signals  were— used  for 
imaging  by  reducing  the  size  of  the  ridges  eminating  from  the  posi¬ 
tion  of  the  sensors. 

Figure  3.6.8  shows  the  best  result  of  the  dual  source 
dereverberation  simulation  of  this  test  example.  For  this  image  it 
was  determined  that  it  was  better  not  to  deresonate  the  signals  from 
one  source  that  reached  a  given  sensor  later  tha  the  signal  from  the 


source  closer  to  the  given  sensor.  As  explained  previously,  this 
seemed  to  worsen  the  reconstruction.  Figure  ',.o.8  was  constructed 
by  deresonating  the  left  half  and  right  half  separately  and  then 
joining  the  two  halves  together.  Dereverberation  loses  amplitude 
information  which  explains  why  the  left  source  appears  smaller  than 
the  right.  In  general,  this  image  is  almost  as  good  as  the  ideal 
dereverberated  image  with  the  most  notable  loss  being  in  the  relative 
amplitudes  of  the  peaks  marking  the  course  locations  to  the  remain¬ 
ing  "noise"  peaks  and  ridges.  Overall,  this  simulation  is  very 
encouraging  and  shows  a  great  deal  of  improvement  over  the  unproc¬ 
essed  image  of  Figure  3.6.6.  To  help  in  comparing  Figures  3.6.6 
and  3.6.8,  both  have  been  reproduced  togp^her  in  Figure  3.6.9.  It 
may  take  a  few  iterations  of  guessing  at  probable  locations  of 
sources  in  Figure  3.6.6  to  obtain  the  deresonated  image,  but  once  it 
is  found  the  sources  can  be  pinpointed  with  accuracy  and  assurance 
of  correctness. 

As  an  example  of  an  intermediate  iteration  for  the  dereson- 
ation  process,  Figure  3.6.10  shows  a  case  where  the  location  of  the 
right  source  was  correctly  guessed  but  an  incorrect  guess  was  made 
for  the  location  of  the  left  source.  In  this  case  the  location  of 
the  left  source  was  taken  mistakenly  to  be  at  the  position  of  its 
echo  which  didn't  lead  to  an  obvious  solution  after  processing. 

Figures  3.6.11  to  3.6.14  show  a  typical  convergence  of  the 
iterative  solutions  to  eq.  (3.4.7)  and  (3.4.8).  Here  is  H  ^(w), 
the  transfer  function  from  the  left  source  with  its  echo  to  the 


left-most  sensor,  and  H2  is  H_^2(io),  the  function  of  the  right  source 
to  the  same  sensor.  Figure  3.6.11  shows  the  two  ideal  channel 
responses  obtained  by  activating  each  source  along.  Figure  3.6.12 
represents  the  initial  approximation  to  H^Coi)  and  by  solving 

Hn  (oj)  =  K^uO/p  ;  all  0)  (3.6.1) 

and 

H12(w)  -  K2(oj)/s  -  rHu(tj)/s  ;  all  u  (3.6.2) 

Successive  approximations  to  (to)  and  are  obtained 

by  iteratively  solving 

Hn((jj)  =  (to) /p  =  qH21(u>)/p  ;  all  00  (3.6.3) 

and 

H21(u)  =  K2(u)/s  -  rHu(u)/s  ;  all  w  (3.6.4) 

Figure  3.6.13  shows  the  solution  after  5  iterations  and 
3.6.14  is  that  after  20  iterations.  At  this  point  there  was  negli¬ 
gible  change  in  the  solution  with  further  iterations  and  the  solution 
was  almost  exactly  equal  to  the  ideal  solution  of  Figure  3.6.11. 

For  this  example  the  ratio  J  qr/ps  j  was  slightly  greater  than  .9  show¬ 
ing  that  for  even  relatively  large  ratios  the  convergence  is  very 
fast  and  accurate.  H2^(oj)  converges  a  little  more  rapidly  and  is 
close  to  its  final  value  after  5  iterations.  This  proves  the 
results  of  section  3.4  are  valid  in  typical  equations. 


Figure  3.6.8  Dereverberated  Image  of  Figure  3.6.6 
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Figure  3.6.11  Ideal  Channel  Transfer  Functions  (top) 

and  H01  (to)  (bottom). 


0. 


150.000  300.000  H50.000  G00.000  750.000  900.000  1053.000 


k' 


F  requency 


Figure  3.6.12  First  Approximation  of  Channel  Transfer  Functions 
H1  (to)  (top)  and  H?1  (ui)  (bottom). 


PART  4 


ARRAY  OPTIMIZATION 

4 . 1  Phased  Array  Fundamentals 

Recently  there  has  been  interest  in  applying  the  results 
of  digital  filter  design  theory  to  the  optimization  of  the  beam  form¬ 
ing  pattern  of  antenna  arrays.  The  techniques  employed  usually 
involve  minimax  criteria  for  side  lobe  suppression.  Certain  appli¬ 
cations  require  focused  operation  in  order  to  make  use  of  the  near 
field  for  imaging.  Nonuniform  array  element  spacings  have  been 
successfully  employed  to  reduce  side  lobes  in  phased  arrays  and  to 
minimize  the  number  of  elements. 

The  Remez  gain  adjustment  procedure  has  been  shown  to  be 
effective  in  suppressing  aperture  side  lobes  but  ineffective  in  con¬ 
trolling  grating  lobes  for  the  far  field  [80].  This  presents  prob¬ 
lems  when  the  array  is  steered.  The  purpose  of  this  chapter  is  to 
examine  the  robustness  of  the  optimal  far  field  gain  optimization 
when  the  array  is  focused  and  steered  in  the  Fresnel  near  field. 

The  general  conclusion  is  that  the  solutions  for  optimal  gains  are 
quite  robust. 

Presented  here  will  be  a  combination  of  nonuniform  spac¬ 
ing,  focusing,  and  element  shading  using  some  optimizing  window 
designs  to  form  a  narrow  center  beam  with  very  good  side  lobe 
suppression.  The  treatment  is  unique  in  that  it  explicitly  incor¬ 
porates  the  effects  of  focusing  in  the  optimization  procedure. 


Additionally,  in  designing  multi-element  phased  arrays, 
whether  for  radar  antennas  or  ultrasonic  imaging  systems,  it  is 
always  desirable  to  keep  the  number  of  sensor  elements  in  the  array 
to  a  minimum.  This  results  in  economic  savings  in  the  construction 
of  the  array  and  in  computational  savings  in  the  processing  of  the 
collected  data  for  the  reconstruction  of  images.  With  this  reduction 
in  the  number  of  elements  comes  an  immediate  trade-off  in  the  array’s 
performance  between  image  resolution  and  the  introduction  of  ambig¬ 
uities  into  the  image  through  grating  lobes.  This  chapter  also 
presents  results  on  the  optimization  of  phased  arrays  for  a  specified 
number  of  elements  with  respect  to  grating  lobes,  side  lobes  and 
image  resolution.  This  is  accomplished  by  adjusting  the  spacings  as 
well  as  the  individual  gains  of  the  elements.  The  results  are 
applied  to  one  and  two  dimensional  Cartesian  arrays  and  also  to 
Fresnel  lens  arrays. 

The  typical  physical  phased  array  system  involves  an  array 
of  transducers  uniformly  spaced  in  either  one  or  two  dimensions.  Due 
to  the  proximity  of  objects  to  be  imaged  in  various  applications,  the 
ultrasonic  near  field  (which  extends  several  meters  from  arrays  of 
typical  dimensions)  must  be  properly  characterized.  Also,  to  improve 
imaging  resolution  it  is  necessary  to  focus  the  phased  array.  Dis¬ 
cussed  here  will  be  special  design  problems  that  arise  when  phased 
arrays  are  to  be  operated  in  the  near  field  and  steered  through  wide 


viewing  angles. 


Analysis  of  phased  arrays  in  the  Fresnel  region  is  essen¬ 
tial  since  it  is  not  possible  to  achieve  significant  focusing  in  the 
Fraunhofer  limit  of  the  ultrasonic  field  [48].  Unfortunately,  con¬ 
ventional  antenna  theory  design  techniques  are  most  effective  for  far 
field  interference  pattern  optimization  [49,50].  The  purpose  of 
this  thesis  will  be  to  explore  the  limits  of  applicability  for  these 
conventional  design  techniques  for  near  field  operations  and  to 
suggest  an  approach  to  extending  these  techniques  into  the  domain  of 
interest  in  ultrasonic  imaging. 

Standard  antenna  operation  involves  steered  but  unfocused 
wave  interference.  The  resolution  achievable  by  such  systems  will 
generally  not  be  acceptable  for  ultrasonic  imaging  as  can  be  seen 
from  the  following  argument.  The  angular  spread  of  collimated  radia¬ 
tion  from  an  ideal  unfocused  aperture  is  approximately  given  by  [51] 

9  =  A/ (2D)  (4.1.1) 

where  A  is  the  wavelength  of  ultrasonic  radiations  and  D  is  the 
diameter  of  the  aperture.  The  distance,  z^,  from  the  aperture  to 
the  point  of  transition  between  the  near  and  far  field  is  approxi¬ 
mately  [52] 

z  =  D2/A  (4.1.2) 

Therefore,  the  width  of  the  phased  array  main  diffraction  lobe  will 
be  roughly 

~  ^  A  wD\  d 

w.  =  =  (rF^C-T-)  T 


(4.1.3) 


at  that  point.  In  other  words  the  width  of  the  unoptimized  diffrac¬ 
tion  lobe  at  the  point  of  emergence  into  the  far  field  (where  a  clear 
main  lobe  can  be  seen)  will  be  roughly  equal  to  the  size  of  the 
aperture,  D,  independent  of  wavelength.  Of  course,  some  applications 
may  find  adequate  resolution  attainable  with  small  aperture  diameters, 
but  the  angular  collimation  will  usually  be  quite  poor  in  this  case 
as  can  be  seem  from  equation  (4.1.1),  and  the  range  of  usefulness  of 
such  arrays  is  extremely  limited. 

On  the  other  hand,  the  spot  size  s  of  a  lens  (simulating 
a  focused  array)  is  approximately  given  by  [53] 

s  i  X(|)  (4.1.4) 

where  F  is  the  lens  focal  length  and  D  is  now  the  lens  aperture.  If 
F  were  equal  to  the  distance  of  the  transition  region,  z^,  then 

3  :  *<T>  ’  5  <T>  *  D  (4-1-5) 

so  significant  focusing  is  achievable  only  with  F  substantially 
less  than  z and  preferably  with  a  small  F/D  ratio.  Values  of  F/D 
below  unity  usually  place  the  focal  point  in  unacceptable  near 
field  interference  side  lobes.  Hence,  useful  focused  unoptimized 
phased  array  operation  will  lie  in  the  range  of  distances 

0  <  F  <  zt  =  D2/A  (4.1.6) 

In  this  range  the  depth  of  focus,  l,  can  be  estimated  by 


I  =  4X  (F/D) 


(4.1.7) 


=  4s  (F/D)  (4.1.8) 

so  that  again  low  F/D  values  are  preferable  if  depth  resolution  is 
accomplished  primarily  by  quasioptical  methods.  Since  many  ultra¬ 
sonic  phased  arrays  achieve  depth  information  by  pulsed  operation, 
short  depth  of  focus  may  not  be  a  strong  requirement. 

The  determining  factor  for  requirement  of  short  depth  of 
focus  is  the  bandwidth  capability  of  the  phased  array  which  is  a 
function  of  the  technology  used  to  achieve  interelement  isolation. 
Good  interelement  isolation  is  necessary  in  steered  or  focused  arrays 
in  order  to  impose  the  proper  phase  of  excitation  on  the  radiating 
elements.  On-line  compensation  for  interelement  coupling  is  compu¬ 
tationally  very  difficult  and  hence  physical  interelement  isolation 
is  preferable.  These  physical  techniques  frequently  are  effective 
only  over  some  finite  operational  frequency  bandwidth.  This  in  turn 
has  an  effect  on  the  depth  resolution  obtainable  by  pulsed  operation. 
Some  physical  array  designs  achieve  as  high  as  80%  of  available  band¬ 
width  but  with  loss  of  interelement  isolation.  More  typically  band- 
widths  are  on  the  order  of  30-50%. 

Another  problem  in  phased  array  imaging  is  caused  by  the 
inherent  array  grating  lobes.  In  general  the  diffraction  pattern  for 
a  phased  array  possesses  both  aperture  and  grating  sidelobes.  For 
a  linear  uniform  array  of  aperture  length  D  and  element  spacing  d, 
the  grating  lobe  angular  spacing  is  roughly 


8  -  X/d  (4.1.9) 

5 

while  the  aperture  lobes  are  roughly  spaced  in  angle  by 

03  =  X/D  (4.1.10) 

3 


Rewriting  Eq.  4.1.3,  the  main  lobe  width  is  related  to  D  at  a  distance 
z  by 


w 


(4.1.11) 


For  good  imaging  purposes  it  is  desirable  to  have  w  as  small  as 

possible  and  9  as  large  as  possible.  This  insures  high  resolution 
2 

with  no  ambiguities  in  the  form  of  aliased  image  shadows.  These 
aliases  are  due  to  grating  lobes  resulting  from  inadequate  spatial 
sensor  density.  At  this  point  we  note  that  these  are  mutually 
opposing  objectives  for  uniform  arrays  since  if  the  fixed  number  of 
elements  is  N  then  D  and  d  are  proportional  to  each  other  and  related 
by 


d(N-l) 


(4.1.12) 


In  order  to  get  the  best  of  both  requirements  some  non- 
uniform  spacing  scheme  must  be  used.  In  addition  the  gain  will  be 
nonuniformly  adjusted  since  it  has  been  shown  [42]  that  shading  the 
gains,  although  it  has  no  effect  on  the  amplitudes  of  the  grating 
lobes,  can  greatly  reduce  the  size  of  the  aperture  side  lobes. 


The  introduction  of  focusing  into  the  uniform  phased  array 
does  not  alter  the  angle  9  in  equation  (4.1.9).  However,  each  major 


lobe  (including  grating  lobes)  pinches  down  to  the  spot  size  s  at 
the  focal  plane  distance  of  F. 

4.2  Phased  Array  Diffraction  Suboptimization 

The  problem  of  maximizing  the  rolloff  of  an  array  diffrac¬ 
tion  pattern  at  the  coverage  region  boundary  subject  to  constraints 
on  the  main  lobe,  sidelobes  and  number  of  phased  array  elements  is 
a  familiar  one  in  antenna  theory.  It  has  been  recognized 
recently  [54]  that  this  problem  is  analogous  to  the  problem  of 
designing  a  so-called  Finite  Impulse  Response  (FIR)  low  pass  digital 
filter  [2,55,56,57].  Thus,  progress  in  the  design  of  low  pass 
digital  filters  with  minimum  transition  bandwidths  subject  to  band¬ 
pass  and  stopband  constraints  has  inspired  interest  in  the  possibility 
of  optimizing  the  design  of  phased  arrays  using  these  techniques  [58]. 
The  most  notable  recent  studies  have  employed  the  use  of  the  method 
of  Remez  [60]  to  accomplish  optimization  in  the  mini-max  or  Chebyshev 
sense . 

The  output  of  a  linear  array  antenna  of  uniform  element 

spacing,  d,  and  terminal  gains  a  subject  to  an  incoming  plane  wave 

in 

of  frequency  fg  at  incidence  angle  9  is 

s ( t )  -  A  G(n)  exp[j  (2TTfQt  +  d>)  ]  (4.2.1) 

where  G(r|)  is  the  far  field  antenna  pattern 

M 

G(n)  =  7  a  exp(jkmdri) 

“  m 


(4.2.2) 


where  k  =  2tt/X  and  n  *  sin  0. 


By  analogy,  the  output  of  an  FIR  digital  filter  with 

impulse  response  samples  h  when  the  input  is  a  sinusoid  at  radian 

m 

frequency  u)  is 

y(t)  «  A  H(w)  exp  [  j  (cot  +  <)>)  ]  (4.2.3) 

where  H(co)  is  the  frequency  response  given  by 

M 

H(co)  =  £  h  exp  (jmooT)  (4.2.4) 

_ 1  HI 


where  co  =  2iTf  and  T  is  the  uniform  temporal  sampling  period  of  the 
digital  filter.  It  can  be  seen  that  the  two  problems  are  analogous 
with  the  correspondence 


f  -  nd/ (At) 


(4.2.5) 


and 


h 


m 


m 


(4.2.6) 


The  shading  problem  consists  of  selecting  the  a^  values  to  minimize 
the  sidelobes. 

It  will  be  seen  that  in  the  near  field  this  analogy  begins 
to  break  down.  Emphasis  here  is  to  be  placed  on  the  reference  to 
the  similarity  between  uniformly  spaced  arrays  in  the  far  field  and 
uniformly  sampled  FIR  digital  filters.  It  will  be  shown  that  the 
correct  extension  of  the  analogy  in  the  near  field  arrays  is  the 
study  of  nonuniformly  sampled  FIR  digital  filters.  However,  it  will 
be  of  interest  for  the  moment  to  consider  just  how  robust  the  far 
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solution  will  be  when  applied  to  near  field,  focused  and  steered 
situations.  It  will  turn  out  that  certain  of  the  side  lobes  (termed 
aperture  side  lobes)  will  be  suppressed  in  a  robust  manner.  However, 
another  class  of  side  lobes  (termed  grating  side  lobes)  will  present 
a  problem  when  the  array  is  steered  whether  focused  or  not. 

The  Remez  exchange  algorithm  is  a  computationally  efficient 
method  for  iteratively  adjusting  the  gain  values  a^  in  equation 
(4.2.2)  to  optimize  the  diffraction  side  lobe  structure.  The  optimi¬ 
zation  is  executed  in  the  mini-max  sense  utilizing  the  properties  of 
Chebyshev  polynomials.  The  Remez  method  has  been  developed  primarily 
for  one  dimensional  arrays.  Nevertheless,  the  method  can  be  extended 
with  some  difficulty  to  two  dimensional  arrays  directly,  or  by  using 
the  McClellan  transformation  [62]. 

The  one  dimensional  Remez  exchange  algorithm  solves  the 
Chebyshev  approximation  problem  by  searching  for  the  extremal  "fre¬ 
quencies"  (in  the  sense  of  the  filter  analog)  of  the  best  approxima¬ 
tion  to  an  ideal  frequency  characteristic.  At  the  beginning  of  each 
iteration  one  has  a  set  of  r  +  1  attempted  "extremal  frequencies" 
(fj-h'  One  then  computes  a  generalized  "best"  Chebyshev  polynomial 
fit  with  error  values  of  known  magnitude  6  and  alternating  sign  on 
the  set  {f^}.  Upon  interpolating  this  polynomial  its  actual  extrema 
are  located  at  {f^}  and  if  they  exceed  6  a  new  iterate  is  attempted 
using  the  new  extremal  set  {f^}  and  the  desired  maximum  error  6. 
Occasionally  the  iteration  fails  to  converge  in  certain  ill  condit¬ 
ioned  cases  due  to  numerical  errors. 


It  should  be  emphasized  that  the  normal  application  of  the 
Remez  algorithm  is  for  uniformly  spaced  elements.  Actually,  in  this 
case  the  quality  of  the  Remez  array  solution  is  closely  approached  by 
using  the  Kaiser  gain  weighting  coefficients  giveh  in  closed  form 
by  [55] 


a 

m 


w<¥>  -  (m-(^))2]1/2> 


(4.2.7) 


where  1^  (.)  is  the  modified  zeroth  order  Bessel  function,  m  is  the 
element  subscript,  M  the  total  number  of  elements  and  is  a  param¬ 
eter  that  permits  a  tradeoff  between  bandwidth  and  the  tolerated  side 
lobe  structure.  Obviously  the  closed  form  solution  of  the  Kaiser 
gains  is  preferable  to  the  Remez  procedure,  but  this  conclusion  is 
valid  only  for  uniformly  spaced  arrays.  The  Remez  procedure  (in 
suitably  modified  form)  offers  a  method  for  handling  the  case  of 
arrays  with  nonuniformly  spaced  delays. 

One  observation  is  pertinent  before  proceeding  to  a  dis¬ 
cussion  of  some  of  the  computed  design  results.  If  in  equations 
(4.2.1)  and  (4.2.2)  each  antenna  element  is  phased  by  an  additional 
amount  given  by  exp(-jkmda)  then  the  resulting  "steered"  diffraction 
pattern  becomes 


M 

G  (n)  -  I  a  exp(jkmd(n-a))  (4.2.8) 

a  m 
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This  action  will  simply  shift  the  diffraction  pattern  to  an 
effective  steering  angle  given  by 
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rr ™ " 1  *  A.1. M.-t 77*777^ \ 

k'!> 


t*.'- 

ir.'< 


=  sin  1a  (4.2.9) 

without  altering  the  maximum  values  of  the  side  lobe  structure. 

Hence,  array  gains  optimal  in  the  far  field  are  independent  of  the 
steering  angle,  [p.  This  includes  all  side  lobes,  and  specifically 
includes  grating  lobes.  One  of  the  important  effects  ignored  in 
(4.2.8)  is  the  fact  that  this  will  not  be  true  with  finite  sized 
elements.  The  individual  element  radiation  patterns  will  taper  the 
interference  pattern  of  equation  (4.2.8)  as  will  be  seen  in  the 
next  section. 

Design  of  two  dimensional  FIR  digital  filters  is  an  active 
research  area.  A  good  overview  of  the  status  of  this  research  is 
given  in  the  recent  paper  by  Harris  and  Mersereau  [70],  Just  as  in 
the  one  dimensional  case  an  analogy  may  be  drawn  between  the  design 
of  two  dimensional  FIR  filters,  frequency  characteristics  and  two 
dimensional  phased  array  farfield  diffraction  patterns.  The  two 
dimensional  far  field  array  diffraction  pattern  is  given  by 

M  N 

G(n,n)  =  I  F  a  exp  (jk[mn  +  nnjd)  (4.2.10) 

-  .  .  mn 

m=l  n=l 

where  n  and  u  are  direction  cosines  in  the  x  and  y  direction 
respectively,  k  =  2tt/A  and  d  is  the  x-axis  or  y-axis  element  spacing. 

The  two  dimensional  frequency  response  of  a  two  dimensional 
FIR  digital  filter  is  given  by: 

M  N 

H(oj.  ,  )  =  7  y  h  exp  ( j  (mco,  +  nui~)T  (4.2.11) 
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where  gj,  and  lo-  are  the  two  frequencies  and  h  the  two  dimensional 
12  mn 

impulse  response  of  the  filter.  Such  filters  are  extremely  useful 
in  image  processing  studies  [70], 


Again  the  analogy  will  be  complete  if  one  forms  the  assoc¬ 


iation  of 
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h  =  a 
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(4.2.12) 


(4.2.13) 


One  simple  method  of  designing  optimal  two  dimensional  gains  is  to 
employ  the  McClellen  transformation  [62]  which  converts  an  optimal 
one  dimensional  FIR  filter  into  a  two  dimensional  rotationally 
symmetric  filter.  This  has  been  done  for  a  16x16  array  in  Figure 
4.2.2.  This  characteristic  was  obtained  from  a  one  dimensional 
filter  transfer  function  corresponding  to  an  axial  section  of  Figure 
4.2.1.  Two  dimensional  array  interference  patterns  with  gain  shading 
will  also  be  shown  in  the  next  section. 


4.3  Diffraction  Pattern  Simulations  of  Phased  Arrays 


We  consider  the  Fresnel  near  field  interference  problem 
treated  by  Goodman  [52]  using  the  coordinate  system  shown  in  Figure 
4.3.1.  The  phased  array  elements  are  considered  to  impress  a  signal 
on  the  medium  in  the  source  plane  (x^,y^)  while  the  resulting  inter¬ 
ference  pattern  is  measured  in  the  observation  plane  (xn,yn). 


SOURCE  OBSERVATION 

PLANE  PLANE 


Figure  4,3.1  Coordinate  System  for  Fresnel  Diffraction 
Pattern. 


Consider  the  source  to  be  an  array  of  transducers  imposing  identically 


shaped  radiation  patterns  G(x1,v.)  shifted  to  locations  x  ,v  in 

1  '  1  cm  '  cm 

the  source  plane.  Denoting  U^(x^,y^)  as  the  ultrasonic  field,  we  have 

U 

To  obtain  concrete  results  a  Gaussian  pattern  is  assumed  for  G(x,y): 

G(x.y)  ■  e-1/2<*2  +  >2)/L2  (4.3.2) 

The  results  tend  to  be  mildly  independent  of  this  assumed  form  for 
G  except  through  the  width  parameter  L.  It  is  readily  shown  [61] 
that  the  resulting  Fresnel  region  interference  pattern  is 
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(4.3.1) 
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(4.3.4) 


and  where  z  is  the  source  to  observation  plane  perpendicular  separ¬ 
ation.  This  result  has  been  computed  for  a  variety  of  cases  for 
both  one  and  two  dimensional  arrays  with  uniform  and  nonuniform 
spacing.  All  results  have  been  scaled  up  by  a  factor  of  z  to  make 
the  figures  readable.  Also  the  diffraction  calculations  here  assume 
no  interelement  coupling. 

Techniques  for  suppression  of  sidelobes  in  the  diffraction 
pattern  described  by  equation  (4.3.3)  are  primarily  available  in  the 


far  field.  In  this  section,  we  examine  the  robustness  of  these  far 


field  gains  in  the  near  field  for  a  focused  array.  One  can  rewrite 

equation  (4.3.3)  explicitly  in  the  far  field  limit  for  a  cartesian 

array  with  M  columns  located  at  x  and  N  rows  at  y  as  follows: 

cm  cn 

oi/o  2  2 

Uq(Xo>  yQ)  =  (2itL  )  exp(jkz  +  jk.(xQ  +  yQ)/(2z)} 

M  N 
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(4.3.5) 


Evans  [54]  notes  the  similarity  between  the  gain  optimization  of 
Equation  (4.3.4)  and  the  design  of  optimum  FIR  filters.  Using  mod¬ 
ified  Kaiser  gains  [55]  typical  diffraction  patterns  have  been  com¬ 
puted  for  uniformly  spaced  arrays  in  the  near  field. 

We  begin  by  considering  a  one  dimensional  array  with  16 
elements  with  D  =  1mm,  and  element  separation  of  2mm  between  centers 
At  4.5  MHz  the  grating  lobes  are  spaced  at  about  8.5°.  Figure  4.3.2 
gives  the  Fresnel  near  field  interference  pattern  out  to  0.6  meters 
for  an  unfocused  array  with  uniform  gains.  Note  that  the  main  lobe 
has  only  just  begun  to  appear  among  the  many  side  lobes.  Figure 
4.3.3  is  the  same  array  steered  by  an  angle  of  3°.  The  grating  lobe 
at  -5.5°  is  quite  apparent. 

In  Figure  4.3.4  the  gains,  a^  are  adjusted  to  the  Remez 
optimum  values  for  far  field  sidelobe  suppression.  Note  that  the 
near  field  shows  substantial  improvement  in  spite  of  the  fact  that 
the  a.  are  strictly  optimal  only  in  the  far  field  and  no  focusing 
has  been  applied.  Figure  4.3.5  shows  the  effect  of  the  same 


optimizing  gains  with  3  of  steering  on  the  unfocused  array. 

Obviously,  aperture  side  lobes  improve  greatly  as  in  the  unsteered 
case,  but  grating  lobes  are  not  suppressed  at  all. 

Figure  4.3.6  shows  the  resulting  pattern  when  the  array 
in  Figure  4.3.5  if  focused  in  the  near  field  at  .25  m.  The  focal 
spot  is  close  to  the  optimum  size  dictated  by  equation  (4.1.4)  of 
2.4  mm.  The  aperture  side  lobes  are  nearly  unobservable  on  an 
unlogged  plot.  Finally  in  Figure  4.3.7  the  focused  and  steered  array 
with  optimum  far  field  gains  shows  a  sharp  focal  spot  but  it  also  has 
the  prominent  grating  lobe  at  -5.5°  which  can  become  larger  than  the 
main  lobe  as  the  grating  lobe  passes  in  front  of  the  array  with 
increasing  steering  angle.  Note  that  the  grating  lobe  shows  a  focus¬ 
ing  effect  also.  In  practice,  the  number  of  elements  required  to 
eliminate  grating  lobes  due  to  dense  spatial  sampling  may  be  unaccept¬ 
ably  large.  From  these  figures,  it  should  be  clear  that  far  field 
optimum  gains  are  quite  effective  in  the  near  field  unsteered  case, 
whether  focused  or  unfocused,  in  combating  aperture  sidelobes,  but 
this  approach  by  itself  is  ineffective  in  suppressing  grating  lobes. 

In  general,  to  be  effective  in  achieving  good  lateral 

spatial  resolution  a  phased  array  should  be  shaded  in  two  dimensions 

since  side  lobes  are  significant  in  both  directions.  Computationally, 

the  problem  is  the  same  as  before,  except  the  transducer  locations 

(x  ,  y  )  are  distributed  over  a  two  dimensional  mosaic  in  the 
cm  cn 

source  plane.  Rewriting  equation  (4.3.3)  with  double  subscripts  for 
the  Cartesian  mosaic  array,  we  have 


ejeran  ejfmn  (4.3.5) 
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where 


fmn  =  h  C1  ‘  '7k]"1  [(x0  '  XcM)2  +  (y0  “  ycM)2]  (4*3‘6) 
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The  above  formula  is  accurate  provided  Airy  corrections  are  not 
needed.  This  condition  will  be  guaranteed  if  [63], 


z3  >:>  C(xo "  xi)2  +  (yo "  yi)2]2 

max 


(4.3.7) 


throughout  the  parameter  ranges  of  interest.  In  other  words  we  must 
have 
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4  max 


(4.3.8) 


where  Ymax  is  the  largest  slant  angle  between  points  of  interest  in 
the  source  and  receiver  planes.  However,  this  requirement  is  overly 
restrictive.  For  the  Fresnel  approximation  to  remain  valid,  it  is 
only  necessary  for  the  Fresnel  phase  to  dominate  other  higher  order 
corrections.  This  is  the  so-called  method  of  stationary  phase. 

To  see  what  happens  if  the  Fresnel  field  solution  is  used 
outside  the  allowed  range  for  inequality  in  (4.3.7),  the  near  field 
just  in  front  of  the  radiators  was  computed.  The  result  shown  in 
Figure  4.3.8  clearly  displays  the  Gaussian  driver  patterns  for  a  two 
dimensional  5x5  array  in  the  very  near  field. 

Figure  4.3.9  illustrates  a  near  field  interference  pattern 
for  the  aforementioned  5x5  element  array.  The  gains  are  uniform 


^amn  =  1) >  c^e  elements  are  of  1  mm  circular  diameter  with  2  mm 
rectangular  center  to  center  spacing  and  the  array  is  unsteered. 
Grating  lobes  are  extremely  small  as  a  result  of  element  directivity 
and  lie  just  beyond  the  field  of  view.  By  steering  the  array  3°  along 
both  the  x  and  y  axes  prominant  grating  lobes  may  be  seen  in  Figure 
4.3.10.  The  interference  pattern  is  also  asymmetric  as  a  result  of 
the  local  directivity  of  the  radiating  elements. 

Side  lobe  structure  is  more  easily  visualized  for  focused 
arrays  if  the  observation  plane  is  moved  closer  to  the  array. 

Figure  4.3.11  illustrates  the  nearfield  diffraction  at  z  =  0.125  m 
for  an  unfocused,  unsteered,  unoptimized  (uniform  weight)  5x5 
element  array  with  1  mm  element  diameter  and  2.5  mm  center  spacing. 

By  focusing  the  unsteered  array  in  the  center  of  the  viewing  plane 
at  z  =  0.125  m,  we  observe  a  substantially  cleaner  center  spot  even 
without  gain  optimization  as  shown  in  Figure  4.3.12.  However,  once 
again  prominent  grating  lobes  are  observed.  If  the  array  is  now 
steered  without  focusing  or  gain  optimization  the  diffraction  pattern 
is  disrupted  substantially  in  the  very  nearfield  at  z  =  0.125  m. 

This  is  shown  in  Figure  4.3.13.  Focusing  at  this  steering  angle 
improves  the  situation  slightly  as  demonstrated  by  Figure  4.3.14. 

A  two-dimensional  transformation  from  a  one-dimensional 
Kaiser  window  is 


Figure  4,3.11  Beam  Pattern;  5x5  Array,  Uniform  Gains 
Unfocused,  z  =  .125  m. 
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As  noted  previously,  the  Kaiser  weights  are  nearly  as  effective  as 
those  produced  by  the  Remez  algorithm  in  the  farfield.  The  effect 
is  still  dramatic  even  at  z  =  0.125  m  in  the  nearfield  as  shown  in 
Figure  4.3.15  where  the  Kaiser  weights  are  used  in  the  unsteered, 
unfocused  counterpart  to  Figure  4.3.11.  The  small  improvement  due 
to  focusing  with  Kaiser  weights  is  shown  in  Figure  4.3.16.  Never¬ 
theless,  the  improvement  in  the  Kaiser  weighted  equivalent  to 
Figure  4.3.12  with  steering  and  focusing  (shown  in  Figure  4.3.17)  is 
marginal,  again  due  to  grating  lobes. 

4 . 4‘  Grating  Lobe  Suppression  by  Nonuniform  Spacing 

In  addition  to  these  basic  focusing  considerations,  there 
remains  the  problem  of  diffraction  side  and  grating  lobe  suppression. 
As  we  have  seen  these  are  extremely  disruptive  in  both  the  near  field 
and  far  field  even  though  optimal  farfield  weights  greatly  reduce  the 
aperture  side  lobes  in  the  nearfield.  Further  improvements  can  be 
expected  with  a  Remez  algorithm  designed  explicitly  for  nearfield 
optimization.  The  angular  spacings  of  these  lobes  in  uniform  arrays 
were  given  in  equations  (4.1.9)  and  (4.9.10)  For  a  nonuniform  array 
the  positions  and  amplitudes  of  aperture  and  grating  lobes  must  be 
computed  numerically.  In  many  situations  it  may  not  be  feasible  or 
desirable  to  make  d  sufficiently  small  to  eliminate  the  grating 
lobes  from  the  field  of  view.  It  is  clear  from  the  cases  presented 
above  that  the  normal  pure  tone  continuous  wave  (cw)  grating  lobes 
are  not  reduced  by  Remez  or  Kaiser  shading.  In  terms  of  the 
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uniformly  sampled  discrete  FIR  filter  analogy  the  grating  lobes  are 
similar  to  frequency  aliasing  in  an  undersampled  digitized  signal  [2] 
The  grating  lobes  are  replicas  of  the  main  lobe  and  hence  cannot  be 
manipulated  independently  under  this  analogy. 

There  are  at  least  three  techniques  to  cope  with  the  grat¬ 
ing  lobe  difficulties: 

1.  Subarray  Constrained  Feed  Systems  and  Aperiodic  Arrays 


In  these  systems  the  elements  are  not  phased  with  single 
linear  or  quadratic  phase  tapering,  but  rather  with  an 
admixture  of  such  phases  [65,66,67]  to  give  a  random  or 
aperiodic  effect.  Similar  results  can  be  obtained  with 
nonuniformly  spaced  arrays. 


Wideband  Signal  Design 


In  this  approach  the  phased  array  is  designed  to  jointly 
optimize  special  and  temporal  resolution  by  utilizing 
diffraction  coherently  across  a  wide  band  of  frequencies 
[68,69].  This  technique  may  not  be  applicable  for 
quasioptical  applications  or  distributed  targets. 


Optical  Methods 


In  this  method  an  ultrasonic  lens  system  demagnifies  an 
oversized  array  (obviously  without  changing  X)  so  as  to 
decrease  the  effective  element  spacing.  The  resulting 
image  then  projects  grating  orders  at  a  wider  angle  while 
improving  the  individual  active  element  radiating  pattern 
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The  solution  used  here  and  explained  in  the  following 
section  is  a  variation  of  the  first  technique.  The  array  gains, 
spacings  and  phases  are  all  adjusted  simultaneously  so  as  to  most 
effectively  reduce  the  size  of  the  grating  lobes.  As  an  initial 
step  in  this  direction  it  was  decided  to  observe  some  nonuniform 
element  spacing  schemes  alone  for  their  affect  on  the  beam  patterns. 

As  noted  in  the  previous  section,  the  grating  lobe  problem 
cannot  be  reduced  by  element  gain  shading  alone.  In  fact,  this  has 
no  effect  on  the  size  of  the  grating  lobes.  It  has  been  known  for 
several  decades  that  a  solution  for  this  problem  is  to  use  nonuni¬ 
form  element  spacings.  In  an  early  study  by  King,  et  al.  [40] 
several  ad  hoc  spacings  were  compared.  These  included  the  arith¬ 
metic  progression  series,  the  elimination  of  multiple  spacing  series 
and  the  logarithmic  series.  The  elimination-of-multiple-spacing 
series  is  the  best  of  these  ad  hoc  schemes. 

Simulations  of  an  11x11  two  dimensional,  unshaded,  focused 
array  formed  by  a  uniform  and  nonuniform  Cartesian  element  spacing 
array  are  shown  in  Figure  4.4.1  and  Figure  4.4.2.  These  show  a 
remarkable  improvement  for  grating  lobe  reduction  for  such  a  small 
array.  Essentially  the  grating  lobes  have  been  almost  totally 
pushed  down  and  spread  to  outside  of  the  viewing  window  of  the  fig¬ 
ure.  The  Cartesian  elimination-of-multiple  spacing  grid  used  to 
obtain  these  results  is  shown  i..  Figure  4.4.3.  The  departure  from 
uniform  spacing  required  to  obtain  these  results  is  surprisingly 
small.  Figure  4.4.4  and  Figure  4.4.5  show  typical  element  spacings 


of  two  dimensional  arrays  using  arithmatic  progression  and  logarithmic 


schemes.  These  are  included  for  references  and  completeness  even 
though  the  figures  shown  are  not  all  for  the  same  array  scale.  The 
dashed  line  on  Figure  4.4.5  shows  the  elements  which  could  be  left 
out  of  the  array  with  virtually  no  effect  on  the  beam  pattern  but 
with  a  resultant  28  array  element  savings. 

4 . 5  Minimax  Beam  Pattern  Optimization  cf  Nonuniformly  Spaced 
Cartesian  Arrays 

In  general  there  are  three  sets  of  parameters  which  can  be 
adjusted  to  optimize  the  nonuniformly  spaced  array.  These  are  the 
spacings,  gains  and  phases  of  the  individual  elements  (the  focusing 
phase  is  determined  by  the  distance  of  an  element  from  the  center  of 
the  array  plus  a  small  optimizing  adjustment).  Several  programs 
exist  for  nonlinear  minimax  optimization  with  respect  to  the  three 
classes  of  parameters,  _V,  in  this  problem.  A  particularly  useful 
technique  devised  by  Madsen  [41]  has  been  employed  to  carry  out  this 
optimization.  This  approach  may  be  formulated  as  minimizing 

F (V)  =  max | Un (x  ,y  )  -  U  (x  ,y  )|  (4.5.1) 

—  U  m  n  D  m  n 

mn 

where  1  <_  m  <_  N  ,  1  ^  n  ^  N ,  _V  =  ,v2  ’  * '  *  Vp^  ’  anc*  ^0^Xm  ’^n  ^  as 

2 

the  desired  array  response,  in  general  P  <<  so  the  solution  tends 
to  involve  the  rainimax  solution  of  overdetermined  systems  of  nonlin¬ 
ear  equations. 

The  procedure  requires  the  specification  of  an  explicit 
expression  for  the  linear  derivatives  of  the  objective  function  in 
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equation  (4.3.3)  for  use  in  a  method  similar  to  a  Newton  Raphson 

iteration  except  with  step  sizes  adjusted  with  each  iteration  to 

insure  that  the  actual  error  reductions  are  close  to  those  predicted 

by  a  locally  linearized  objective  function.  Typical  forms  for  the 

derivatives  with  respect  to  the  element  gains  (a  ) ,  locations 

mn 

^Xcm,ycn^  and  Phases  (6  )  are  given  by  the  following  expressions 

for  a  Cartesian  grid  array. 
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Slight  changes  occur  in  equation  (4.5.3)  for  the  spatial  derivative 
when  the  array  is  not  constrained  to  be  Cartesian. 

Optimization  of  uniformly  spaced  array  gains  can  be  per¬ 
formed  by  methods  analogous  to  those  used  in  FIR  filter  design. 

These  techniques  alone,  however  are  ineffective  in  suppressing 
grating  lobes.  Now  it  will  be  demonstrated  that  joint  optimization 
of  array  element  spacings,  gains  and  phases  offers  an  effective  means 
of  reducing  grating  lobes  and  handling  near  field  behavior  explicitly 
by  solving  nonlinear  equations. 

Minimax  optimization  of  Cartesian  arrays  has  been  success¬ 
ful  for  both  one-  and  two-dimensional  arrays.  A  particularly  useful 
technique  has  been  to  start  out  a  given  design  with  one  of  the 
several  ad  hoc  nonlinear  spacings  studied  by  King  et  al.  [40],  and 
either  a  set  of  uniform  gains  or  modified  Kaiser  gains  [55].  No 
attempt  was  made  to  optimize  the  phase  at  this  point  to  observe  the 
benefits  of  this  procedure  because  of  the  extra  computational  burden 


of  these  additional  parameters  to  be  optimized. 
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Figure  4.5.1  shows  the  beam  pattern  of  a  uniformly  spaced 
linear  16  element  array.  Note  the  large  grating  lobes  on  each  side 
of  the  main  lobe.  Figure  4.5.2  is  the  beam  pattern  for  the  optimized 
linear  16  element  array  of  Figure  4.5.1.  The  large  grating  lobes 
have  been  substantially  reduced  with  the  half  power  width  of  the  main 
beam  being  widened  only  slightly. 

Similarly,  Figure  4.5.3  shows  the  beam  pattern  of  a  uniform 
11x11  element  two  dimensional  planar  array.  Figure  4.5.4  is  the 
beam  pattern  of  the  minimax  optimized  array. 


4 . 6  Minimax  Beam  Pattern  Optimization  of  Fresnel  Lens  Arrays 

The  Fresnel  zone  plate  lens  is  a  special  antenna  array  con¬ 
figuration  where  the  elements  are  annular  with  proper  radii  and 
widths  which  are  arranged  concentrically  [71].  The  radii  of  the 
rings  are  given  approximately  by 


P 


n 


(4.6.1) 


where  F  is  the  principal  focal  depth  of  the  lens.  Actually  the  full 
zone  plate  (with  all  of  its  rings  present)  acts  simultaneously  as  a 
positive  and  negative  lens  with  multiple  "virtual"  focal  points  at 
axial  positions  given  by  the  distances  [72] 

z  =  —  [m  =  0,  ±1,  ±2,  ...  ]  (4.6.2) 

m  m 

away  from  the  lens  plane.  If  the  positive'  values  of  z  correspond  to 

m 


positions  in  front  of  the  lens  then  the  negative  virtual  foci 
produce  ring-shaped  side  lobes  at  off-axial  positions  in  any  plane 


perpendicular  to  the  axis  of  the  lens.  These  virtual  spots  and 
rings  are  analogous  to  grating  lobes  in  unfocused  arrays  since  the 
ring  spacings  of  equation  (4.6.2)  undersample  the  aperture  of  the 
plate.  This  is  illustrated  in  Figure  4.6.1  where  the  diffraction 
pattern  is  shown  in  the  principal  focal  plane  of  a  10  element  lens. 
As  observed  by  other  authors  [73]  the  energy  in  these  ring-shaped 
side  lobes  can  be  substantial. 

Similarly,  if  one  examines  the  virtual  foci  along  the 
axis  as  shown  in  Figure  4.6.2  for  a  14  element  lens  their  effect  can 
be  equally  unacceptable  if  some  of  these  foci  happen  to  lie  inside 
the  volume  to  be  examined.  If  the  zone  plate  focus  is  dynamically 
adjusted  by  varying  X  or  introducing  additional  "steering"  phases 
for  each  ring  then  the  virtual  foci  will  also  move. 

To  compensate  for  these  undesirable  phenomena  one  can 
resort  to  antenna  array  optimization.  By  varying  the  spacing  of  the 
rings  a  given  region  of  the  zone  plate  diffraction  pattern  can  be 
swept  free  of  strong  virtual  lobes.  The  method  of  nonuniform  ring 
spacing  is  in  contrast  to  the  techniques  discussed  by  Wild  [77], 
Vilkoraerson  [78]  and  Burckhardt,  Grandchamp  and  Hoffman  [79]  which 
can  also  be  employed  in  conjunction  with  spacing  adjustment  where  a 
single  discrete  focal  spot  is  desired. 

The  approach  chosen  here  was  to  adjust  the  spacings  of  the 
rings  and  add  some  shading  to  the  element  gains.  No  phases  were 
included  or  optimized  here.  Using  the  unoptimized  14  element  Lens 
of  Figure  4.6.2,  the  resulting  optimized  axial  diffraction  pattern 


Figure  4.6.1  Fresnel  Zone  Plate  Diffraction  Pattern  in 
the  Principal  Focal  Plane. 
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is  shown  in  Figure  4.6.3.  Again  the  procedure  outlined  by  Madsen 
has  proved  invaluable. 

For  the  purposes  of  this  discussion  attention  is  limited 
to  suppressing  false  focal  spots  along  the  zone  plate's  axis, 
although  joint  sidelobe  suppression  in  the  principal  focal  plane  is 
feasible . 

Consider  an  electroded  ring  generating  ultrasound  U(x^,y^) 
in  an  annulus  with  inner  radius  r  and  outer  radius  R, 


u(x1,y1) 


a 


r  < 


R 


0  otherwise 


(4.6.3) 


The  diffracted  ultrasound  at  a  point  *qYq  in  an  observation  plane 
a  distance  z  from  the  plane  of  the  annulus  is  approximately  given 
by  the  Fresnel  integral  [78] 
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exp(jkz) 
j  Xz 


exp 


"2z 


(xr 


ynH 


00 


_ oo 


00 

U(x1,y1)  exp  [^(x^  +  y^)] 

— OO 


exp  {-j  ^  (x^  +  y^)}  dXldYl 


(4.6.4) 


where  k  =  w/c. 


For  a  sequence  of  N  rings  driven  with  amplitude  a^  and 


pulse  0  it  has  been  shown  [76]  that 


U  (0 , 0 ;  z )  =  exp(jkz)  £  a  e^n  [exp  (— ■  ■  -n-)  -  exp(  _  n)]  (4.6.5) 

n=l  ‘-z  zz 

where  rn  and  are  the  inner  and  outer  radii  of  each  annulus  and 

setting  Yq  =  =  0  restricts  U(.)  to  axial  observations. 

In  order  to  adjust  r  ,  R  ,  a  and  6  to  suppress  the  false 

n  n  n  n 

focal  spots  using  the  Jladsen  routines,  the  problem  is  recast  in  the 
form  of  minimizing  the  maximum  error,  F(V)  where 

F (V)  =  max  |U(0,0;z)  -  U_(z) |  (4.6.6) 

~  z  D 

over  the  z  axis  by  adjusting  the  vector  of  parameters 

V  =  {rn,  Rn,  aQ,  8n  *,  n  =  1,2,  ...  N}  (4.6.7) 

The  explicit  derivative  of  F(V)  with  respect  to  the  V_  variable  sim¬ 
ilar  to  those  of  equations  (4.5.2)  through  (4.5.9)  have  been  calcu¬ 
lated  [76].  These  were  used  to  obtain  results  in  the  optimization 
of  the  axial  beam  pattern. 

Two  difficulties  occur  in  this  procedure.  First,  due  to 
the  complexity  of  the  objective  function,  there  are  many  local  extrema 
which  must  be  examined  to  arrive  at  the  true  global  optimum.  Second, 
optimization  of  even  a  sparse  array  tends  to  require  that  the  spacing 
and  thickness  of  at  least  a  few  of  the  rings  be  quite  small.  Failure 
to  achieve  such  isolation  will  result  in  the  inef f ectiveness  of  the 
most  tightly  spaced  rings  resulting  in  substantial  changes  in  the 
diffraction  pattern. 


The  rings  of  the  lenses  were  simulated  by  rings  of  many 
small  individual  elements.  This  allowed  the  use  of  existing  programs 
for  the  previous  array  equations  and  derivatives  and  has  been  shown 
to  give  highly  reliable  results  [76]. 

A  second  separate  optimization  was  also  performed  on  an 
11  element  Fresnel  lens  to  reduce  the  "radial"  grating  lobes  (or 
cones)  inherent  in  these  lenses.  A  cross-section  of  the  array 
pattern  similar  to  Figure  4.6.1  for  the  unoptimized  array  is  shown 
in  Figure  4.6.4.  Note  the  very  large  side  lobes  containing  consid¬ 
erably  more  energy  than  the  main  beam.  After  optimizing  the  gains 
and  spacings  as  well  as  the  ring  thickness.  Figure  4.6.5  was  obtained 
This  is  an  improvement  to  the  point  where  the  array  could  be  used 
success.  '  j.y  for  imaging,  which  was  not  the  case  previously. 

Figures  4.6.6  and  4.6.7  show  the  two  dimensional  beam  patterns  of  the 
unoptimized  and  optimized  arrays  respectively. 
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4.7  Minimax  Array  Optimization  Observations 


It  is  important  to  note  that  due  to  the  oscillatory  nature 
of  the  objective  function  of  Eq.  (4.5.1)  multiple  extrema  arise  and 
it  becomes  necessary  to  examine  them  all  to  obtain  the  true  global 
optimum.  This  can  be  a  very  costly  and  time-consuming  computer 
search.  In  many  cases  results  can  be  improved  by  slightly  changing 
the  initial  array  configuration  and  initial  adjustment  step  size. 

The  Fresnel  lens  arrays  are  extremely  sensitive  to  small 
changes  in  the  ring  spacings  and  any  optimized  design  would  have  to 
be  fabricated  with  extremely  high  precision.  To  build  a  working 
optimized  array  for  ultrasonic  applications  would  almost  assuredly 
require  the  performance  of  trapped  energy  resonators  [61,63,74,75,59], 
because  of  their  high  interelement  isolation,  small  attainable 
element  sizes  and  good  bandwidths. 

It  has  been  shown  here  that  antenna  arrays  can  be  optimized 
successfully  for  several  different  performances  by  adjusting  the 
element  gains,  spacings  and,  for  the  Fresnel  lens  array,  size. 

Although  done  separately  here,  different  criteria  may  be  optimized 
simultaneously  but  with  the  cost  of  an  increased  computational 
requirement.  For  example,  one  could  simultaneously  suppress  grating 
lobes  along  the  axis  and  grating  rings  in  the  focal  plane.  Further 
optimization  may  be  done  by  removing  the  Cartesian  constraint  on 
Cartesian  arrays  and  letting  the  elements  reside  anywhere  in  the 
plane.  Much  wcrk  still  remains  in  speeding  up  the  optimization 


process  and  in  establishing  a  result  as  being  the  true  global  opti¬ 
mum. 

Tying  the  array  optimization  results  to  the  dereverbera¬ 
tion  application  produces  a  great  increase  in  the  quality  of  the 
source  location  images.  Figure  4.7.1  demonstrates  the  improvement 
over  Figure  3.6.8  when  imaging  is  done  with  an  optimized  array. 


PART  5 


DISCUSSION  AND  CONCLUSIONS 

This  work  has  presented  several  problems  dealing  with 
the  many  and  varied  applications  of  array  antennas  and  has  developed 
reasonable  solutions  for  those  problems  which  have  been  backed  up 
with  simulations.  Each  problem  has  been  analyzed  and  fully  under¬ 
stood  before  any  approach  was  made  towards  a  solution  to  insure  the 
feasibility  and  usefullness  of  the  given  solution. 

Dereverberation  of  the  received  signal  particularly  in 
non-destructive  testing  and  flaw  imaging  was  the  first  problem 
approached  for  both  single  source  and  dual  source  mediums.  The 
single  source  solution  was  derived  with  some  simplifying  assumptions 
and  rederived  with  added  complications  as  the  assumptions  were 
removed.  Finally  a  discussion  was  made  on  the  conditions  under  which 
the  theory  breaks  down  altogether.  Simulations  showed  some  very 
promising  results.  The  dual  source  case  proved  to  be  a  problem 
several  orders  of  magnitude  more  difficult  than  the  single  source 
case  but  with  meticulous  prodding,  resulted  in  a  solution  with  few 
limiting  assumptions .  Again  simulations  bore  out  the  fruits  of  the 
labor  of  derivations. 

No  thesis  is  complete  without  mention  of  the  known  prob¬ 
lems  associated  with  a  given  method  or  topics  for  further  investiga¬ 
tion.  The  first  to  be  noted  is  that  the  discrete  effects  of  the  DFT 
could  be  analyzed  further  since  these  effects  must  be  carefully 
watched  in  all  simulations.  There  are  also  problems  with  the  method 


when  non-Hermite  pulse  shapes  are  being  observed  since  perfect 
separation  of  signal  and  channel  can  no  longer  be  achieved  in  this 
case.  Furthermore,  the  relationship  of  the  pulse  shapes  sent  over 
each  path  from  the  source  to  the  receiver  (involving  different  modes 
and  reflections  for  each  path)  is  assumed  constant  from  event  to 
event  and  thereby  can  be  described  by  a  single  transfer  function 
which  remains  constant  from  event  to  event.  Situations  where  the 
source  spacial  radiation  pattern  can  change  between  events  will 
violate  this  assumption  in  that  the  transfer  function  would  change 
from  event  to  event.  Another  problem  area  which  is  deserving  of 
more  attention  is  the  computation  of  the  cepstrum  for  signals  whose 
spectrum  is  zero  in  a  given  band  which  would  cause  the  log  function 
to  diverge.  One  possible  simple  solution  is  an  analysis  of  the 
processing  with  the  exclusion  of  such  bands  of  frequencies. 

Finally  one  must  be  cautious  of  estimation  noise  in  this  processing 
since  this  will  adversely  affect  the  phase  unwrapping  results.  This 
is  an  area  in  which  much  research  could  and  should  be  done. 

The  array  optimization  problem  which  is  more  directly 
applicable  to  active  transmit-receive  imaging  systems  such  as  radar, 
ultrasonic  and  sonar  was  a  somewhat  smaller  investigation.  The 
question  could  be  easily  well  posed,  however  the  function  was  far 
from  well  behaved.  Yet  again  with  careful  understanding  and  study 
some  very  good  solutions  were  obtained  with  near  optimal  values  of 
the  elemental  gains,  positions  and  phases  of  one  dimensional,  two 
dimensional  and  fresnel  lens  arrays.  Simulations  once  again  demon¬ 


strated  the  validity  of  the  solutions. 


PART  6 


LITERATURE  CITED 


1.  Kraft,  R.P.,  and  J.F.  McDonald,  "Grating  Lobe  Suppression  in  a 
Correlation  Acquisition  Based  Phased  Array  Imaging  System," 

RPI  Technical  Report  UI79-1,  March  1979. 

2.  Oppenheim,  A.V.,  and  R.W.  Schaeffer,  Digital  Signal  Processing, 
Prentice-Hall,  Inc.,  Englewood  Cliffs,  NJ,  1975. 

3.  Cramer,  H. ,  Mathematical  Methods  of  Statistics,  Princeton 
University  Press,  Princeton,  NJ,  1963. 

4.  Kendall,  M.G.,  and  A.  Stewart,  The  Advanced  Theory  of  Statistics, 
Vol.  1,  Hafner  Publishing  Co.,  NY,  1963. 

5.  Johnson,  N.L. ,  and  S.  Kotz,  Distributions  in  Statistics: 
Continuous  Multivariate  Distributions,  J.  Wiley  &  Sons,  NY,  1972. 

6.  Oppenheim,  A.V. ,  R.W.  Schafer,  and  T.G.  Stockham,  "Nonlinear 
Filtering  of  Multiplied  and  Convolved  Signals,"  Proc.  of  the  IEEE 
Vol.  56,  No.  8,  pp.  1264-1291,  August  1968. 

7.  Tribolet,  J.M. ,  "A  New  Phase  Unwrapping  Algorithm,"  IEEE  Trans. 
Acoustics,  Speech,  and  Signal  Processing,  Vol.  ASSP-25,  No.  2, 
April  1977. 

8.  Weinstein,  C.J.,  J.W.  Cooley,  et  al.,  Programs  for  Digital  Signal 
Processing,  IEEE  Press,  1979  (Digital  Signal  Processing 
Committee,  Ed.). 

9.  Tikhonov,  V.I.,  and  A. A.  Tolkachev,  "The  Effects  of  Non-normal 
Fluctuations  on  Linear  Systems,"  Nonlinear  Transformations  of 
Stochastic  Processes,  Pergamon  Press,  pp.  64-67,  (P.  I.  Kuznetsov 
et.al.  Ed.),  1960. 

10.  Atal,  B.S.,  "Linear  Prediction  for  Speaker  Identification," 

J.  Acoust.  Soc.  Amer.,  Vol.  55,  pp.  1304-1312,  1974. 

11.  Schroeder,  M.R. ,  "Direct  (Nonrecursive)  Relations  Between 
Cepstrum  and  Predictor  coefficients,"  IEEE  Trans,  on  Acoust., 
Speech,  and  Sig.  Proc.,  Vol.  ASSp-29,  No.  2,  pp.  297-301, 

April,  1981. 

12.  Papoulis,  A.,  Probability,  Random  Variables,  and  Stochastic 
Processes,  McGraw-Hill,  NY,  pp.  372-374,  1965. 


13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 

21. 

22. 

23. 

24. 

25. 


Flanigan,  J.L.,  Speech  Analysis,  Synthesis  and  Perception, 

Academic  Press,  New  York,  1965. 

Markel,  J.D.,  A.H.  Gray,  Jr.,  Linear  Prediction  of  Speech, 
Springer-Verlag,  New  York,  1976. 

Bogert,  B.P.,  M.S.  Healy  and  J.W.  Jukev,  "The  Frequency  Analysis 
of  Tine  Series  for  Echoes:  Cepstrum,  Pseudo-Autocovariance, 
Cross-Cepstrum,  and  Saphe  Cracking,"  in  M.  Rosenblatt  (ed.) 

Time  Series  Analysis.  John  Wiley  &  Sons,  Inc.,  New  York,  Chap.  15, 
pp.  209-243,  1963. 

Opperheim,  A.V.,  and  R.W.  Schafer,  "Homomorphic  Analysis  of 
Speech,"  IEEE  Trans.  Audio  Electroacoust . ,  Vol.  Au-16,  No.  2, 
pp.  221-226,  June  1968. 

Tribolet,  J.M. ,  T.  F.  Quatieri,  "Computation  of  the  Complex 
Cepstrum,"  Progress  for  Digital  Signal  Processing,  (Digital 
Signal  Processing  Committee,  Ed.),  IEEE  Press,  1979. 

Quatieri,  T.F.,  J.M.  Tribolet,  "Computation  of  the  Real  Cepstrum 
and  Minimum-Phase  Reconstruction,"  Programs  for  Digital  Signal 
Processing,  (Digital  Signal  Processing  Committee,  Ed.),  IEEE 
Press,  1979. 

Randall,  R.B.,  and  H.  Hee,  "Cepstrum  Analysis,"  Briiel  &  Kjaer 
Instruments'  Technical  Review,  Mass.,  1981. 

Tribolet,  J.M.,  Seismic  Applications  of  Homomorphic  Signal 
Processing,  Prentice-Hall,  New  Jersey,  1979. 

Shapiro,  A.,  "Approximation  to  the  Array  Signal-Gain  Fluctuation 
Spectrum,"  J.  Acoust.  Soc.  Am.,  Vol.  37,  No.  6,  pp.  1075-1078, 

June  1965. 

Nuttall,  A.H.,  and  B.F.  Cron,  "Signal-Waveform  Distortion  Caused 
by  Reflection  off  Lossy-Layered  Bottoms,"  J.  Acoust.  Soc.  Am., 

Vol.  40,  No.  5,  pp.  1094-1107,  March  1966. 

McClellan,  J.d.,  T.W.  Parks  and  L.R.  Rabiner,  "A  Computer  Program 
for  Designing  Optimum  FIR  Linear  Phase  Digital  Filters,"  IEEE 
Trans.  Audio  Electroacoustics,  Vol.  AU-21,  pp.  506-526,  Dec.  1973. 

Rabiner,  L.R.,  J.H.  McClellan,  T.W.  Parks,  "FIR  Digital  Filter 
Design  Techniques  Using  Weighted  Chebyshev  Approximation,"  Proc. 
IEEE,  Vol.  63,  pp.  592-610,  April  1975. 

Harris,  F.J.,  "On  the  Use  of  Windows  for  Harmonic  Analysis  With  the 
Discrete  Fourier  Transform,"  Proc.  IEEE,  Vol.  66,  No.  1,  pp.  51-83, 
Jan.  1978. 


26. 


181 


Kamp,  Y.,  J.P.  Thiran,  "Chebyshev  Approximation,  for  Two- 
Dimensional  Nonrecursive  Digital  Filters,"  IEEE  Trans.  Circuits 
Syst.,  Vol .  CAS-22,  No.  3,  pp.  208-218,  March  1975. 


27.  Maeda,  N.,  "Transversal  Filters  with  Nonuniform  Tap  Spacings," 
IEEE  Trans.  Circuits  Dept.,  Vol.  CAS-27,  No.  1,  pp.  1-11, 

Jan.  1980. 


28.  Widrow,  B.,  P.E.  Mantey,  L.J.  Griffith,  B.B.  Goode,  "Adaptive 
Antenna  Systems,"  Proc.  IEEE,  Vol.  55,  No.  12,  pp.  2143-2159, 
Dec.  1967. 


29.  Griffiths,  L.J.,  "A  Simple  Adaptive  Algorithm  for  Real-  e 
Processing  in  Antenna  Arrays,"  Proc.  IEEE,  Vol.  56,  No.  , 
pp.  1696-1704,  Oct.  1969. 

30.  Mailloux,  R.J.,  L.  Zahn,  A.  Martinez,  G.R.  Forbes,  "Grat-.»g  Lobe 
Control  in  Limited  Scan  Arrays,"  IEEE  Trans.  Antennas  Propagat., 
Vol.  AP-27 ,  No.  1,  pp.  79-92,  Jan.  1979. 

31.  Streit,  R. ,  "Sufficient  Conditions  for  the  Excitence  of  Optimum 
Beam  Patterns  for  Unequally  Spaced  Linear  Arrays  with  an  Example," 
IEEE  Trans.  Antennas  Propagat.,  Vol.  AP-23,  No.  1,  pp.  112-115, 
Jan.  1975. 

32.  Redlich,  R. ,  "Iterative  Least-Squares  Synthesis  of  Nonuniformly 
Spaced  Linear  Arrays,"  IEEE  Trans.  Antennas  Propagat.,  Vol.  AP-21, 
No.  1,  pp.  106-108,  Jan.  1973. 

33.  Wilson,  G.L.,  "Computer  Optimization  of  Transducer-Array  Pattern," 
J.  Acoust.  Soc.  Am.,  Vol.  59,  No.  1,  pp.  195-203,  Jan.  1976. 

34.  Wilson,  G.L.,  "The  Design  of  Antenna  Arrays  with  Tapered  Sidelobe 
Heights,"  IEEE  Trans.  Antennas  Propagat.,  Vol.  AP-26,  No.  2, 

pp.  345-347,  March  1978. 

35.  Beaver,  W.L.,  D.H.  Doneron,  Ar-'Macowski ,  "Ultrasonic  Imaging 
with  an  Acoustic  Lens,"  IEEE  Trans.  Sonics  Ultrasonics, 

Vol.  SU-24 ,  No.  4,  pp.  235-243,  July  1977. 

36.  Alais,  P. ,  B.  Richard,  "Progress  in  Fresnel  Imaging;  Clinical 
Evaluation,"  Acoustical  Holography, 

Vol.  8,  pp.  137-148,  1977. 

27.  Fink,  M. ,  "Theoretical  Aspects  of  the  Fresnel  Focusing  Technique," 
Acoustical  Holography, 

Vol.  8,  pp.  149-164,  1977. 


Schjaer- Jacobsen,  H. ,  K.  Madsen,  'Synthesis  of  Nonuniformly 
Spaced  Arrays  Using  a  General  Nonlinear  Minimax  Optimization 
Method,"  IEEE  Trans.  Antennas  Propagat.,  Vol.  AP-24,  pp.  501-506, 
July  1976. 

Madsen,  K. ,  "Minimal  Solution  of  Non-Linear  Equations  Without 
Calculating  Derivatives,"  Mathematical  Programming  Study  3, 
North-Holland ,  pp.  110-126,  1975. 

King,  D.D.,  R.F.  Packard,  R.K.  Thomas,  "Unequally  Spaced,  Broad 
Band  Antenna  Arrays,"  IRE  Trans,  on  Antennas  and  Propagation, 
pp.  889-884,  July  I960. 

Madsen,  K. ,  "An  Algorithm  for  Minimax  Solution  of  Over  Determined 
Systems  of  Non-Linear  Equation,"  J.  Inst.  Maths.  Applic.,  Vol.  16, 
pp.  321-328,  December  1975. 

Kraft,  R.P.,  J.F.  McDonald,  F.  Ahlgren,  "Minimax  Optimization  of 
Two-Dimensional  Focused  Nonuniformly  Spaced  Arrays,"  Proc.  1979 
IEEE  Int.  Conf.  on  Acoust,  Speech  and  Signal  Processing, 
pp.  286-289,  April  1979. 

Broyden,  C.G.,  "A  Class  of  Methods  for  Solving  Nonlinear  Simul¬ 
taneous  Equations,"  Math.  Comp.,  Vol.  19,  p^>.  577-593,  1965. 

Chien,  M.J.,  "Searching  for  Multiple  Solutions  of  Nonlinear 
Systems,"  IEEE  Trans.  Circuits  Syst.,  Vol.  CAS-26,  No.  10, 
pp.  817-827. 

Ecker,  J.G.  and  M.  Kupferschmid,  "An  Ellipsoid  Algorithm  for 
Nonlinear  Programming,"  Mathematical  Programming  (to  appear). 

Smith,  R.W. ,  C.K.  Day,  "High  Temperature  Ultrasonic  Transducers 
for  In-Sodium  Service,"  Technical  Report  HEDL-TME  75-21,  Westing- 
house  Hanford  Division,  Richland,  Washington  99352,  January 
1975. 


Hoitinik,  N.C.,  C.  K.  Day,  "Under  Sodium  Viewing  System  Develop¬ 
ment  for  FFTF, "  Technical  Report  HEDL-TME  75-103,  Westinghouse 
Hanford  Divison,  Richland,  Washington  99352,  January  1975. 

Sherman,  J.W. ,  "Properties  of  Focused  Apertures  in  the  Fresnel 
Region,"  IEEE  Trans,  on  Antennas  and  Propagation,  AP,  July  1962, 
pp.  399-408. 

Weeks,  W.I.,  Antenna  Engineering,  McGraw-Hill,  1968. 

Khurgin,  Y.T.,  V.F.  Yakovlev,  "Progress  in  the  Soviet  Union  on 
the  Theory  and  Applications  of  Band  Limited  Functions,"  IEEE 
Proceedings,  Vol.  64,  No.  7,  July  1977,  pp.  1005-1029.  [con¬ 
tains  an  interesting  set  of  references]. 


Morse,  P.M. ,  K.U.  Ingard,  Theoretical  Acoustics,  McGraw-Hill, 

NY,  1968,  p.  382. 

Goodman,  J.W.,  Introduction  to  Fourier  Optics,  McGraw-Hill,  1968. 

Born,  M.  ,E.  Wolf,  Principles  of  Optics,  Pergamon  Press,  New  York, 
NY,  1959. 

Evans,  J.E.,  "Synthesis  of  Equiripple  Sector  Antenna  Patt'rns," 
IEEE  Trans,  on  Antennas  and  Propagation,  May  1976. 

Rabiner,  L.R.,  B.  Gold,  Theory  and  Application  of  Digital  Signal 
Processing,  Prentice  Hall,  1975. 

Hamming,  R.W. ,  Digital  Filters,  Prentice  Hali,  1977. 

Rabiner,  L.R. ,  C.M.  Rader,  Digital  Signal  Processing,  IEEE  Press. 

Dudgeon,  D.E. ,  "Fundamentals  of  Digital  Array  Processing,"  Proc . 
IEEE,  Vol .  65,  June  1977. 

Amitey,  N. ,  V.  Galindo,  Chen  Pang  Wu,  Theory  and  Analysis  of 
Phased  Array  Antennas,  Wiley  Interscience. 

Reraez,  E.Y. ,  "General  Computational  Methods  of  Chebyshev  Approx¬ 
imation,"  Keiv,  1957  (Atomic  Energy  Translation),  4491,  pp.  1-85. 

Tiersten,  H.F.,  J.F.  McDonald,  M.F.  Tse,  P.  Das,  "Monolithic 
Mosaic  Transducer  Utilizing  Trapped  Energy  Modes,"  Acoustical 
Holography,  Vol.  7,  L.W.  Kessler  (Ed.),  pp.  405-421,  1977. 

McClellan,  J.H.,  "The  Design  of  Two  Dimensional  Filters  by  Trans¬ 
formations,"  Proc.  7th  Annual  Princeton  Conference  on  Information 
Sciences  and  Systems,  pp.  247-251,  1973. 

Tiersten,  H.F.,  J.F.  McDonald,  P.K.  Das,  "Two  Dimensional  Mono¬ 
lithic  Mosaic  Transducer  Array,"  Proc.  IEEE  Ultrasonics  Symposium 
pp.  406-412,  1977. 

Steinberg,  B.D.,  "Principles  of  Aperture  and  Array  Systems 
Design,"  Wiley  Interscience,  1976. 

DuFort,  E.C.,  "Constrained  Feeds  for  Limited  Scan  Arrays,"  IEEE 
Trans,  and  Antennas  and  Propagation,  Vol.  AP-26,  No.  3,  pp.  407- 
413,  May  1978. 

Hodjat,  F.,  S . A.  Hovanessian,  "Nonuniformly  Spaced  Linear  and 
Planar  Array  Antennas  for  Side-lobe  Reduction,"  IEEE  Trans,  on 
Antennas  and  Propagation,  Vol.  AP-26,  No.  2,  pp.  196-204, 


March  1978. 


Harrington,  R.F.,  "Sidelobe  Reduction  by  Nonuniform  Element 
Spacing,"  IRE  Trans,  on  Antennas  and  Propagation,  Vol.  9,  No.  2, 
March  1961. 

Thurstone,  F.L.,  E.B.  Miller,  "Linear  Ultrasonic  Array  for  Echo- 
sonography,"  J.  Acoust.  Soc.  Am.,  61,  pp.  1481-1491,  June  1977. 

Hildebrand,  B.P.,  "An  Analysis  of  Pulsed  Ultrasonic  Arrays," 

Proc.  of  the  Eighth  Acoustical  Biography  Symposium,  1978  (in 
press) . 

Harris,  D.B.,  R.M.  Mersereau,  "A  Comparison  of  Algorithms  for 
Minimax  Design  of  Two-Dimensional  Linear  Phase  FIR  Digital 
Filters,"  IEEE  Trans,  on  Acoust.,  Speech  and  Sig.  Process., 
ASSP-25  (#6),  pp.  492-500,  Dec.  1977. 

Klein,  M.V.,  Optics,  J.  Wiley  &  Sons,  New  York,  NY,  Chapter  8, 

Farnow,  S.A. ,  B.A.  Auld,  "An  Acoustic  Phase  Plate  Imaging 
Device,"  in  Acoustical  Holography,  Vol.  6,  N.  Booth  (ed.), 
pp.  259-273,  1975. 

Vilkomerson,  D. ,  B.  Hurley,  "Progress  in  Annular-Array  Imaging," 
in  Acoustical  Holography,  Vol.  6,  N.  Booth  (ed.),  pp.  145-164, 
1975. 

Tiersten,  H.F.,  B.K.  Sinha,  J.F.  McDonald,  P.K.  Das,  "On  the 
Influence  of  a  Tuning  Inductor  on  the  Bandwidth  of  Extensional 
Trapped  Energy  Mode  Transducers,"  Proc.  1978  IEEE  Ultrasonics 
Symposium,  pp.  163-166,  1978. 

Das,  P.K.,  G.A.  White,  B.K.  Sinha,  C.  Lanzl,  H.F.  Tiersten, 

J.F.  McDonald,  "Ultrasonic  Imaging  Using  Monolithic  Mosaic  Trans¬ 
ducer  Utilizing  Trapped  Energy  Modes,"  in  Acoustical  Imaging, 

Vol.  8,  A.F.  Metherell  (ed.),  pp.  119-135,  1978. 

Das,  P.K.,  S.  Talley,  R.  Kraft,  H.  Tiersten,  J.F.  McDonald, 
"Ultrasonic  Imaging  Using  Trapped  Energy  Mode  Fresnel  Lens  Trans¬ 
ducers,"  Acoustical  Imaging,  Vol.  9,  K.Y.  Wang  (ed.),  pp.  75-92, 
1980. 

Wild,  J.P.,  "A  New  Method  of  Image  Formation  with  Annular  Aper¬ 
tures  and  an  Application  to  Radio  Astronomy,"  Proc.  Royal  Society 
286  A,  499,  1965. 

Vilkomerson,  D.,  "Acoustic  Imaging  with  Thin  Annular  Apertures," 
In  Acoustical  Holography,  Vol.  5,  P.S.  Green  (ed.),  Plenum  Press, 


pp.  283-316,  1973. 


Burkhardt,  C.B.,  P.A.  Grandchamp,  H.  Hoffman,  "Methods  for 
Increasing  the  Lateral  Resolution  of  B-Scan,"  in  Acoustical  Hol¬ 
ography  ,  P.S.  Green  (ed.),  Vol.  5,  Plenum  Press,  pp.  391-413, 

1973. 

McDonald,  J.F.,  A. A.  Papadopoulos ,  "Grating  and  Aperture  Sidelobe 
Optimization  of  Phased  Arrays,"  Part  I  (Unfocused,  Unsteered 
Arrays),  R.P.I.  Technical  Report  VI  78-1,  Rensselaer  Polytechnic 
Institute,  June  16,  1978. 

Rabiner,  L.R. ,  R.W.  Schafer,  Digital  Processing  of  Speech 
Signals,  Prentice-Hall,  NJ,  pp.  208-216,  1978. 

Bendat,  J.S.,  Principles  and  Applications  of  Random  Noise  Theory, 
J.  Wiley  &  Sons,  pp.  258-261,  1958. 

Breckenridge,  F.R.,  "Acoustic  Emission  Transducer  Calibration  by 
Means  of  the  Seismic  Surface  Pulse,"  J.  Acoustic  Emission,  Vol.  1, 
No.  2,  pp.  87-94,  Jan.  1982. 

Breckenridge,  F.R.,  M.  Greenspan,  "Surface-Wave  Displacement: 
Absolute  Measurement  Using  a  Capacitive  Transducer,"  J.  Acoust. 
Soc.  Am.,  Vol.  69,  No.  4,  pp.  1177-1185,  April  1981. 

Hau,  N.N. ,  F.R.  Breckenridge,  "Characterization  and  Calibration 
of  Acoustic  Emission  Sensors,"  Inter.  Confr.  Acoustic  Emission, 
Sept.  1979. 


Breckenridge,  F.R.,  C.E.  Tschiegg,  M.  Greenspan,  "Acoustic 
Emission:  Some  Applications  of  Lamb’s  Problem,"  J.  Acoust.  Soc. 
Am.,  Vol.  56,  No.  3,  pp.  626-631,  March  1975. 
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rnc  DFFTJV 


FTN  DFFTJV 
LOAD 

LO  B—DFFTJV 
LI 

SA  * DFFTJV 

a 

DELETE  B-DFFTJW 
O  D. DFFTJV  1  2 
R  *DFFTJV 
C  1 

SEC  "PLOT2D 
D. DFFTJV 
CO  TTY 

D I MEWS  I ON  X( 2048) . Y( 2048) . R( 2048) . THC 2048) . R1 ( 2048) , R2( 2048) 
K*3 

L0C2N* 1 1 
N*2**L0C2N 
SIGN* 1 . 

ND2=N/2 
XMIN>0. 

XMAX*  FLOAT! N) 

M*ND2+ 1 
DO  3  J*1,K 
IPVR* ( J— 1 ) *4+ 1 
I  I*HOD(  IPVR, 4) +1 
GO  TO  (  10,  II,  12,  13)  .  II 

10  XI*  1. 

YI*0. 

CO  TO  14 

11  XI*0. 

YI*  1 . 

CO  TO  14 

12  XI*- 1. 

YI*0. 

GO  TO  14 

13  XI*0. 

YI*- 1 . 

14  CONTINUE 
DO  1  1*1, ND2 
W*(  I-l.)XFLOAT(N) 

X(  I ) * X I *V*» I P VR/F ACTC IVPR) 

1  Y(  I)*YI*W**IPWR/TACT(  IPVR) 

DO  2  I*M,N 
V*(  I-N- 1 . ) /FLOAT!  5) 

X(  I)*XI*V**1PVR/FACTC IPWR) 

2  Y(  I) *YI*V**IPVR/FACT(  IPVR) 

’  TAKE  FFT  OF  SIGNAL 

CALL  MR1DF(  L0G2N, X, Y, SIGN) 

IF( J . Eft. 1) CALL  RP(X.Y,R,TH,N.O) 

IF( J.E0.2)CALL  RP(X, Y.R1 ,TH,N,0) 

IF(  J .  Ed.  3)  CALL  RP(  X,  Y,  R2,TH,  N,  0) 

3  CONTINUE 
DO  4  1*1,  N 

R(  1>*AL0G10(R(  I)) 

R1C  I)  *  AL0C1Q(  Rl(  I)) 

4  R2( I) * AL0C10<  R2C I>) 

VRITEC  5 , 100)N,K, XMIN.XMAX 


FT!?  DFFTJW 


FORMAT!  214, 2G13. 8) 

WRITE!  8, 200) 

FORMAT( '  (8E15.8) ’) 

WRITE!  5 , 300 )  ( ( R(  I)  ,R1(  I)  ,R2(  I))  ,  1*1,11) 
FORMAT( 8E13.8) 

CALL  EXIT 
Eld) 


FUNCTION  FACT(  I) 
FACT*  1 . 

IF< I.LE. 1) RETURN 
DO  1  1?*  1 ,  I 
1  FACT*  FACT*  FLOAT! !?) 
RETURN 
END 


SUBROUTINE  RP(X,  Y,  R,  TH,N,  ID) 

REC  -  POLAR  CONVERSION 
ID  NOT  *1  =  =  >  R->  P 
ID  *  1  **>  P->R 

DIMENSION  X( 2048) .7(2048) ,R( 2048) , TH( 2048) 
IF(  ID. Eft.  1 ) GO  TO  10 
DO  8  1*1.  N 

R(  I ) * SQRT( X(  I)*X(  I)+Y(  I)*VC  I>) 

TH(  I)*0. 

IF(T(  I)  .  Eft.0.  .  AND.X(  I)  . Eft. 0.  )GO  TO  8 
TH(  I )  *  AT  AN  2  ( Y(  I)  ,X(  D) 

8  CONTINUE 
RETURN 
10  CONTINUE 
DO  IS  1*1, N 
X(  I)*R(  I)*COS(TH(  I)) 

18  Y(  I) *R(  I)*SIN(TH(  D) 

RETURN 

END 


SUBROUTINE  MR1DF(L0G2N,X,Y,SICN) 

FORTRAN  VERSION 

MIXED  RADIX  FOURIER  TRANSFORM 

INTEGER  LOG2N 

REAL  X( 2048) , Y<  2048) 

DIMENSION  S< 13) ,U(  13) 

INTEGER  J1.J2, J3. J4,JT,N,M4 

REAL  ARC. Cl ,C2,C3, S 1 , S2, S3 , R1 , R2.R3 ,R4,R3 ,R6 ,R7, R8.T 


INTEGER  A.B.C.D.E.FiG.H, I , J, Lt M, 

1  BS.CS.DS.ES.FS.GS.HS, IS, JS.KS.LS.MS. 

2  AL.BL.CL.DL.EL.FL.CL.HL, IL, JL.KL.ML.S.U 

EQUIVALENCE  ( BS ,S(  2) )  ,  ( CS, S(  3) )  ,  ( DS ,  S(  4) )  ,  ( ES,S( 8)  > ,  ( FS,S(6)  ) 


FTR  DFFTJV 


1  (  GS,  S(  7) )  ,  (  HS,  SC  8) )  ,(  IS, S<  9) )  ,  (  JS ,  S(  10) )  .  (  KS ,  SC  ID)  ,(LS,S(  12) ) 

2  <MS,S( 13) ) .( AL,U( 1) ) ,(BL,U(2)) .(CL. 0(3) ) . (DL,U(4)) .(EL. 0(3) ) , 

3  (FL.U(6)),(CL,U(7)).(HL.U<8>).<  IL,  U(  9) )  ,  (  JL,  U<  1«)  )  .  (  KL.  U(  11)  )  , 

4  (LL.OC  12) )  .  <ML,U<  13) ) 


11 

12 

H 


» 

) 

i 


R*2**L0C2R 

IF  ( S ICR)  8000, 8009,8002 
DO  8001  I*  1 ,  R 
Y(  I )  «-Y(  I) 

CORTIRUE 

IF  (L0C2R-1)  800.500,901 
cornu  uf 

DO  400  K*  2 . L0C2R , 2 
LOC2R-K) 

H4*4*H 
DO  300  J*1,H 

ARC* 6 . 283 15*FL0AT<  J- 1 ) /FLOAT!  M4) 
C1*C0S( ARC) 

S1*SIR(  ARC) 

C2«C1*C1-S1*S1 

S2*C1*S1+C1*S1 

C3Z  C2*C 1 -S2*S 1 

S3ZC2*S1+S2*C1 

DO  200  I*M4 , 5 , M4 

J1M+J-H4 

J2-J1+M 

J3* J2+M 

J4-J3+H 

R1*X(  Jl)+X<  J3) 

B2*X(  J  1)-XC  J3) 

R3«Y(  Jl)+Y<  J3) 

B4*Y(  Jl)-Y(  J3) 

R5*X(  J2)+X(  J4) 

Ri6zX(  J2)  -X(  J4) 

R7*  Y<  J2) ♦  Y( J4) 

R8»Y<  J2)-Y(  J4) 

X(  J1MR1+R5 
Y(  J1)*R3+R7 

I F  C ARC)  101,100,101 
corn  RUE 

X< J3) * ( R2+R8) *C l+( R4-R6) *8 1 

Y( J3) « < R4-R6 ) *C l-<  R2+R8) *S 1 

X( J2) « (  R1-R5) *C2+( R3-R7) *S2 

Y(  J2) * ( R3-R7) *C2-< RI-R3) *S2 

X(  J4) * ( R2-R8) *C3+(  R4+R6 ) *S3 

Y(  J4) * (  R4+R6) *C3-< R2-R8) *83 

GO  TO  200 

com  RUE 

X(  J3)«R2+R8 

Y(  J3)*R4-R6 

X(  J2)»R1-R8 

Y(  J2)«R3-R7 

X(J4)*R2-R8 

Y(  J4)*R4+R6 

CORTI RUE 

CORTIRUE 

CORTI RUE 


c 


FTH  DFFTJW 


COUTINUE 

I TEST* L0C2H-(  L0G2H/2*2> 

IF(  ITEST)  701,700,701 
COHTIRUE 
DO  600  1*1, H, 2 
R1*XC  I)+X(  1+1) 

R2*X(  n-X(  1+1) 

R3*Y(  I)+Y(  1+1) 

R4*Y<  I)-Y(  1+1) 

X(  I)*Rl 
Y(  I)  *R3 
X(  1+ 1) *R2 
Y(  I+1)*R4 
CORTIHUE 
CONTINUE 
MS=H/2 
KL*H 

DO  800  K=2, 12 
J*  14-K 
S(J)*1 
U(J)=S< J+l) 

IF(S<  J+D-l)  7701,7701,7700 
S(  J)-S( J+l)/^ 

com  ROE 
COHTIHUE 
AL*BS 
JT*0 

DO  900  A* 1 , AL 
DO  900  B*A,BL.BS 
DO  900  C*B,CL,CS 
DO  900  D*C.DL.DS 
DO  900  E*D,EL,ES 
DO  900  F*E, FL, FS 
DO  900  G=F,GL,GS 
DO  900  H*G,HL,HS 
DO  900  I*H, 1L, IS 
DO  900  J* I, JL, JS 
DO  900  K*J,KL,KS 
DO  900  L=K,LL,LS 
DO  900  M*L,NL,MS 
JT*  JT+ 1 

IF(JT-tt)  900,900,901 
com  HUE 
T*X(  JT) 

X(  JT)-X(M) 

X(M)*T 
T*Y(  JT) 

Y(  JT)  *  Y(  fl) 

Y(M)*T 
corn  HOE 
RETORH 
EHD 


non  n  no  o  o  nnnn 


REAL*8  XC2048) ,Y(2048) ,R(2048) ,TH<2048,  ,RM 
R£AL*8  DEXP , DBLE , DLOG 1 0 
REAL*4  XX ( 2048) ,CX(2050'  . AUXC2050) 

COMMON  P I , TWOPI , THLINC, TULCON, NFFT, NPTS, NN, L,H,H1 , DVTMN2 
LOCI CAL  ISSUC 
L0G2N* 1 1 
N*2**L0G2N 
PI =4. *ATAN( I.) 

TW0PI=2.*PI 
THLINC* 1.5 
THLCON* . 5 
NFFT*N 
SICN*-1. 

ND2= N/2 
M=ND2+ 1 

DEFINE  TIME  PULSE 

CENT= FLOAT!  M)+0. 

DO  1  1=1,  N 

X!  I)  =DBLE(  ABS(  N/2.  -ABS!  CENT-I)  >  /(2.*2.*2. ) ) 

X(  I )  =DEXP( -X(  I) ) 

XX(  I)=SNCL(X(  I) ) 

1  Y(  I ) =0 . D0 
DO  2  1*1.  R 

X(  I)-X(  I)+.3*DEXP!-DBL£! ABS!N/2.-ABSICENT+128.-I>>/'8.)> 

9  XX(  I )  =  SRGL( X(  I)  ) 

OUTPUT  TIME  SIGNAL 
CALL  VRKX.  Y.N.6) 

TAKE  FFT  OF  TIME  SIGNAL 
CALL  MR1DF!  L0G2N , X, Y, SIGN) 

CALL  RP(X.Y,R.TH.N,0) 

OUTPUT  FREQUENCY  DOMAIN 
CALL  WRKR.TH.N.5) 

FIND  CEPSTRUM  OF  TIME  SIGNAL 

CALL  CCEPS(N, XX, ISNX.  ISFX, ISSUC, CX.AUX) 

IF( .NOT. ISSUC) STOP 
WRITE!  1,300) ISNX, ISFX 
300  FORMAT! G20. 14) 

J*N+ISFX 
DO  3  1*1, N 

3  X!  I- ISFX)* DBLE! CX! I)) 

J*- ISFX 

IF! J.LE.0)GO  TO  5 
DO  4  1*1,  J 

4  X!  I )  *  DBLE!  CX!  N+  ISFX+ 1 ) ) 

3  CONTINUE 

OUTPUT  CEPSTRUM 
CALL  WRI!  X, X,N,7) 

GO  TO  40 


CC 


TAKE  LOG  OF  FREQUENCY  DOMAIN 
21  DO  20  I* 1 , N 

IF!R!  I) . LE. 2. D- 1 10) GO  TO  22 
X!  I) *DLOG10! R!  I)> 


c 


GO  TO  20 
22  X<  1)=X(  1-1) 

20  Y(  I )  =TH(  I) 

C  OUTPUT  LOG  OF  FREQUENCY  DOHA IN 
CALL  WRI(X, Y.N.9) 

C  INVERT  CEPSTRUM 
40  CONTINUE 
DO  30  1=1,  N 
R(  I)  *  10. D0**X(  I) 

30  TH(  I)=0.D0 

CALL  RP(X,  Y.R.TH.N,  1) 

CALL  MR1DF(L0C2N,X, Y,-l.) 

CALL  RP(  X,  Y,  R,  TH,  N ,  0) 

C  OUTPUT  INVERSE  CEPSTRUM 
CALL  WRI(R,TH,N,8) 

CALL  EXIT 
END 
C 

c 

c 

SUBROUTINE  WRKX.Y.N.K) 

REALX8  X( 2048) . Y( 2048) 

REAL*4  XX(  2048) ,YY( 2048) 

DO  10  1=1, N 
XX(  I)  =SNGL( X(  I)) 

10  YY< I) =SNGL(  Y(  I)) 

J*2 

XMIN=0. 

XMAX*  FLOAT!  N) 

WRITE!  K. 300) N , J , XM IN, XMAX 
300  FORMAT! 214, 2G13. 8) 

WRITE!  K,  200) 

200  FORMAT! '  ( 8E13 . 8)  ’  ) 

WRITE!  1C,  100)  ((XX!  I)  ,YY(  I))  ,  I*1,N) 

100  FORMAT! 8E 13. 8) 

RETURN 

END 

C 

C 

SUBROUTINE  RP(  X,  Y,  R,  TH,  N,  ID) 

C  REC  -  POLAR  CONVERSION 
C  ID  NOT  =1  **>  R->F 

C  ID  *  1  **>  P->R 

REAL* 8  X!  2048) , Y( 2048) , R(  2048) , TH!  2048) 
REAL* 8  DSQRT, DATAN2 , DCOS , DS IN 
IF! ID. EQ. 1)G0  TO  10 
DO  3  1=1, N 

R(  I )  *  DSQRT!  X!  I)*X(  I)+Y(  I)*Y(  I)) 

TH! I) *0.D0 

IF!  Y(  I) . EQ.0.D0. AND.X!  I) . EQ. 0.D0)GO  TO  5 
TH!  I) *DATAN2(  Y(  I) ,X(  I)) 

3  CONTINUE 
RETURN 
10  CONTINUE 
DO  13  1*1, N 
X!  I)  »R(  I)  *DCOS(TH(  I) ) 

13  Y(  I)=R!  I)*DSIN(TH(  I) ) 


T"" 


RETURN 

END 


SUBROUTINE  MR!DF(L0C2N,X.Y.SICN) 
FORTRAN  VERSION 
MIXED  RADIX  FOURIER  TRANSFORM 
INTEGER  L0C2N 
REALMS  XI 2048) , Y(  2048) 

DIMENSION  S( 13) ,U( 13) 


INTEGER  Jl. J2, J3. J4, JT.N.M4 

REAL* 8  ARG.C1 ,C2,C3,S1 , S2. S3 ,R1 , R2, R3 , R4.R5 , R6 . R7, RB, T 
R£AL*8  DC OS, DS IN 


INTEGER  A.B,C,D,E,F,C,H. I, J.K.L.M. 

1  BS,CS,DS,ES.FS.CS,HS. IS, JS.KS.LS.M3, 

2  AL, BL, CL, DL, EL, FL, CL, HL, IL, JL, KL, ML, S, U 

EQUIVALENCE  (  BS,S(  2) ) , <  CS , S( 3) ) , ( DS, S( 4) ) , C  ES.SC  5) ) , ( FS, S( 6) ) , 

1  CCS, SC  7) )  , (HS,S(8) ) . ( IS. SC  9) ) .( JS,S( 10) ) . (KS,S( 11) ) ,(LS,S(  12) ) , 

2  CMS,  SC  13)  )  ,C  AL.UC  1)  )  ,  CBL.UC2) )  ,  CCL.UC3)  )  ,  CDL.UC4)  )  .CEL.UC5)  )  , 

3  (FL.UC6) )  ,  CGL.UC7)  )  .CHL.UC8))  ,C  IL.UC9) )  ,  C  JL.UC  10) )  .CKL.UC  ID)  , 

4  CLL.UC 12)) .CML.UC 13)) 

N=2**L0C2N 

IF  C  SIGN)  8000,8000,8002 
DO  800 1  1=1, N 
Y(  I)x-Y(  I) 

CONTINUE 

IF  CL0G2N-1)  300.300,501 
CONTINUE 

DO  400  K=  2 , L0G2N , 2 
M=2**C L0G2N-K) 

M4=4*M 
DO  300  J*1,M 

ARG=  6 . 283 1 3D0*DBLEC FLOATC J- 1 ) /FLOATC  M4) ) 

Cl*DCOSC  ARC) 

S1  =  DSINC  ARG) 

C2=C1*C1-S1*S1 

S2=C1-*S1+CI*S1 

C3=C2*C1-S2*S1 

S3=C2*S1+S2*C1 

DO  200  I=M4,N,M4 

Jl= I+J-M4 

J2» Jl+M 

J3= J2+M 

J4= J3+M 

R1*XC  J1)+XC  J3) 

R2=XC  J 1 )  -XC  J3) 

R3*Y(  J1)+YC  J3) 

R4«Y(  JD-YC  J3) 

R5*X(  J2)  +X(  J4) 

R6«X(  J2)-XC  J4) 

R7*Y(  J2)+YC  J4) 


■*.  -r- 


R8=Y<  J2)-Y(  J4) 

X<  J1)=R1+R5 
Y(  J  1 )  =R3+R7 

IF(ARG)  101,100,161 
CONTINUE 

X( J3)=(R2+na)*Cl+(R4-R6)*Sl 

Y(  J3)  =  (  R4-R3 ) *C l-( R2+R3) *S 1 

X<  J2)  =  (  R1-R5) *C2+(  R3-R7) *S2 

Y( J2) 1 ( R3-R7) *C2-(  R1-R5 ) *S2 

X( J4>  =  ( R2-R8) *C3+<  R4+R6) *S3 

Y(  J4)  =  (  R4+R6 ) *C3- ( R2-R8) *S3 

CO  TO  200 

CONTINUE 

X< J3)=R2+R8 

Y<  J3)=R4-R6 

X(  J2)  =  R1-R5 

Y( J2) = R3-R7 

X<  J4)  =  R2-R8 

Y<J4)=R4+R6 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

I TEST= L0G2N-  ( L0G2N/2*2> 

IF(  ITEST)  701,700,701 
CONTINUE 
DO  600  1=1. N, 2 
R1=X(  I)+X(  1+1) 

R2=X(  I)-XC  I+I) 

R3=Y(  I)+Y<  I+I) 

R4=Y(  I )  -Y(  1+1) 

X(  I)  =  R1 
Y(  I)  =R3 
X(  I+1)=R2 
Y(  1+ 1 )  =R4 
CONTINUE 
CONTINUE 
MS=N/2 
ML=N 

DO  800  K=2, 12 
J= 14-K 
S( J)=  1 
U( J)=S( J+l) 

IF( S( J+  1 ) -  1 )  7701,7701,7700 

S( J)=S( J+l)/2 
CONTINUE 
CONTINUE 
AL*BS 
JT=0 

DO  900  A= l.AL 
DO  900  B=  A,  BL,  BS 
DO  900  C=B,CL,CS 
DO  900  D=C,DL,DS 
DO  900  E=D,  EL,  ES 
DO  900  F=E, FL, FS 
DO  900  G=F,GL,CS 
DO  900  H=G,HL,HS 


c 


a  i 


I  ■ 


k 


IS 

& 


DO 

900 

1  = 

H. 

IL. 

IS 

DO 

900 

J= 

I  , 

JL, 

,JS 

DO 

900 

K= 

J, 

KL, 

KS 

DO 

900 

L= 

K, 

LL 

,LS 

DO 

900 

M= 

L, 

ML, 

,  MS 

JT*JT+ 

1 

IF(  JT-M) 

901  CONTINUE 

T=X(  JT) 

X<  JT)=X(M) 

X(  M)  ST 
T=Y(  JT) 

Y<  JT)  =  Y(  M) 
Y(M)=T 

900  CONTINUE 
RETURN 
END 


900,900,901 


a  i 


i 

K 


„\ 

% 


r. 


N  U 
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C 


COMPILE:  FTN  CCEPS  -64V 

LOAD:  LOAD  B-CCEPS  SUBROUTINES  TO  PROCS 

USING  CEPSTRUM  CALCULATIONS 


SUBROUTINE:  CCEPS 

SUBROUTINE  TO  COMPUTE  THE  COMPLEX  CEPSTRUM  OF  A  SEQUENCE  X(N) 


C 

SUBROUTINE  CCEPSINX.X, ISNX, ISFX. ISSUC.CX.AUX) 

C 

DIMENSION  X ( 1 ) , CX ( 1 ) , AUX ( I ) 

COMMON  PI  .TWOPI  ,  THL INC, THLCON , NFFT , NPTS , N , L , H , H X  , DVTMN2 

LOGICAL  ISSUC 

NPTS=NFFT/2 

N=  12 

L=2**N 

H= FLOAT  ( L )  FLOAT  ( NFFT ) 

Hl=Pl/H 
ISSUC= .TRUE. 

I SNX= 1 
C 

DO  10  1=1 .NX 
CX( I ) =X( I ) 

AUXCI )= FLOAT! I -I )*X< I ) 

10  CONTINUE 
INITL=NX+1 
IEND=NFFT+2 
DO  20  I = I N I TL , I END 
CXCI)=0.0 
AUX( I )=0.0 
20  CONTINUE 
C 

CALL  FFA(CX.NFFT) 

CALL  FFA (AUX, NFFT) 

C 

I F(CX( 1 ) . LT .0.0)1 SNX= - 1 
C 

1 0=-l 

DVTMN2=0.0 
IEND=NFTS+1 
DO  30  1  =  1,1  END 
10=10+2 
IE= 10+1 

Amc-sa=A;ioDsa(cx(io)  ,cxaE)) 

PDVT  =  PHADVT ( CX ( 10) , CXI  IE) ,AUX( 10) ,AUX( IE) , AMAGSQ) 

AUX(  I0)=AILAGSa 
A’JX(  IE)  =PDVT 
DVTt  iT.'2  =  DVTHN2 + PDVT 
30  CONTI HUE 

DVTMN2 = ( 2 . *DVTHN2 -AUX ( 2 ) -PDVT ) /FLOAT ( NPTS ) 

C 

PPDVT=AUX(2) 

PPHASE=0.0 

PPV=PI'VPIIA(CX(1)  ,CX(2) ,  ISNX) 

CXI  1 ) = . 5*AL0C( AUX( 1 ) ) 

CX<2) =0 . 0 
10=1 


nn  rtnnnnnn 


C 


LV  .* 


DO  50  1=2,1  END 
10=10+2 
I E= 1 0+ 1 
PD'T  =  AUX(  IE) 

PPV=PPVPHA(CX( 10) ,CX( IE) , ISNX) 

PHASE* PIIAUNVtX, NX. ISNX, I , PPHASE , PPDVT, PPV , PDVT, I SSOC) 

I F ( I SSUC ) CO  TO  40 
I SSUC = .FALSE. 

RETURN 

40  PFB«T*PDVT 

PPHASE = PHASE 

CX(  10)  =  .  5;':AL0G(  AUX(  10)  ) 

CX(  IF.)  =  PHASE 
50  CONTINUE 


I SFX= ( ABS ( PHASE/P I )  +  .  1  ) 

I F ( PHASE . LT . 0 . 0 ) I SFX= - I SFX 
H  =  PHASE/FLOAT ( NPTS ) 

I  E=0 

DO  60  1  =  1,1  END 
IE= I E+2 

CX( IE)=CX( IE)-H*FLOAT( 1-1) 
60  CONTINUE 

CALL  FFS(CX.NFFT) 

RETURN 

END 


SUBROUTINE:  SPCVAL 

SUBROUTINE  TO  COMPUTRE  A  SPECTRAL  VALUE  AT  A  FREQUENCY 
FREQ ( RAD IANS)  FOR  SEQUENCE  X(N)  AND  N*X(N) 


SUBROUTINE  SPCVAL(NX,X,FREQ,XR,XI ,YR,YI) 

DIMENSION  X< 1 ) 

DOUBLE  PRECISION  U0,U1 ,U2,W0,W1 , W2 , A , B , C , D , A1 .A2.SA0.CA0 


CAO=DBLE ( COS ( FREQ ) ) 

SAO = DELE  C  S I  If  ( FREQ ) ) 

A1 =2 . D+0*CA0 
U1 =0 . D+0 
U2=U  1 
W1=U1 
W2=U1 

DO  10  J=1 ,NX 
XJ=EBLE(X( J ) ) 

U0=XJ+A1*U1-U2 

UO  =  DBLE ( FLOAT ( J- 1 ) )*XJ+A1*W1 -W2 

U2=U1 

U1=U0 

W2=W1 

WI=U0 

10  CONTINUE 


A=U1 -U2*CA0 


,N 


uuuuuuuu 


c 


r  5  L".  'A  A  A’.WI.1  V  r  - 


■n 


hi 


B*U2*SA0 

C=W1-W2*CA0 

D=W2*SA0 

A2 = DBl.F.  (  FRFA* FLOAT  ( NX- 1 )  > 
Ul *DC03(A2) 

U2*-DSIN(A2) 

XR*SNCL  <U 1  *A-U2*B ) 
XI*SNGL(U2*A+U1*B) 

YR*SNGL  <U l  *C-U2*D ) 

Y I  *SNGL ( U2-~-:CHJ  1  *D ) 

RETURN 

END 


FUNCTION:  PHAUNV 

PHASE  UNWRAPPINC  BASED  ON  TRI BO LET' S  ADAPTIVE  INTEGRATION  SCHEME. 
THE  UNWRAPPED  PRASE  ESTIMATE  IS  RETURNED  IN  PHAUNV. 


C 


c 

c 


c 


c 

c 


c 


DIMENSION  SDVT( 17) ,SPPV( 17) ,X( 1 ) 

INTEGER  SINDEXt 17) .PINDEX.SP 
LOCICAL  ISCONS, FIRST 

COJfflON  PI  .TVOPI  , THL I NC , THLCON , NFFT , NPTS , N , L , H . H 1  .DVTMN2 

FIRST* .TRUE. 

P I NDEX* 1 
SP*1 

SPPV(SP)*PPV 

SDVT(SP)-PDVT 

SINDEX(SP)*L+1 

GO  TO  40 

10  PINDEX=SINDEX(SP) 

PPHASE* PHASE 
PPDVT=SDVT(SP) 

SP=SP-1 
GO  TO  40 

20  IF((SINDEX(SP)-PINDEX).GT.1)G0  TO  30 
I SCONS*. FALSE. 

PHAUNV* 0. 

RETURN 

30  K*(SINDEX(SP)+PINDEX)/2 

FR£tt=TVOPI*( FLOAT <  I-2)*FL0AT(L)+FL0AT<1C-I )  )/"H 
CALL  SPCVALINX.X.FREtt.XR.XI ,YR,YI) 

SP=SP+1 

SINDEX(SP)*K 

SPPV(SP)*PPVPHA(XR,XI , ISNX) 

XMAC*  AIIODSQ ( XR , XI  ) 

SDVT ( SP ) *  PHADVT  C  XR , XI ,YR,YI ,XMAC) 


C 


40  DELTA*H 1 *FLOAT ( S I NDEX (SP)-PJ NDEX) 
PHAIHC*DELTA*<PPDVTfSDVT(SP> ) 


FUNCTION:  PPVPHA 

COMPUTE  THE  PRINCIPLE  VALUE  OF  THE  PHASE  OF  A  SPECTRAL  VALUE 


FUNCTION  PPVPHA(XR,XI . ISNX) 

I F( ISNX. EO. 1 )PPVPHA= (ATAN2( (XI ) . (XR) ) ) 

I F( ISNX. EQ. (-1 ) )PPVPHA=(ATAN2(-(XI ) .-(XR) ) ) 

RETURN 

END 


FUNCTION:  PHADVT 

COMPUTE  THE  PHASE  DERIVATIVE  OF  A  SPECTRAL  VALUE  OF  A  SEQUENCE  X(N) 


FUNCTION  PHADVT(XR,XI .YR.YI ,XMAC) 

PHADVT  = -SRGL ( ( DBLE ( XR ) *DBL£ ( YR ) +DBLE (XI )*DBLE(YI ) )/DBLE(XMAG) ) 

RETURN 

END 


FUNCTION:  AMODSQ 

COMPUTE  THE  SOU ARE  OF  THE  MODULUS  OF  A  COMPLEX  NUMBER 


FUNCTION  AMODSQ (ZR.ZI) 

AMODSQ = SNGL ( DBLE ( ZR ) *  DBLE ( ZR ) +DBLE ( Z I >*DBLE(ZI )) 

RETURN 

END 


SUBROUTINE:  PIICUCK 

SUBROUTINE  TO  CHECK  CONSISTENCY  OF  A  PHASE  ESTIMATE 


nono 


A1 =FLOAT( IFIX(AO) )#TWOPI+PV 
A2*A  1 +S I GN  (TWOP I  , AO ) 

A3*ABS  ( A1  -Pil ) 

A4*ABS  ( A2-P11 ) 

I  SCONS* .FALSE. 

I F  ( A3  .  CT  .TIILCON .  AND .  A4  .  CT  .THLCON )  RETURN 
1 SCONS* .TRUE. 

PII*A1 

lF(A3.CT.A4)Pn=A2 

RETURN 


C  SUBROUTINE:  FFA 
C  FAST  FOURIER  ANALYSIS  SUBROUTINE 


SUBROUTINE  FFAIB,  NT FT) 

C 

C  THIS  SUBROUTINE  REPLACES  THE  REAL  VECTOR  BCK) .  CK=1,2 . N) , 

C  WITH  ITS  FINITE  DISCRETE  FOURIER  TRANSFORM.  THE  DC  TERM  IS 
C  RETURNED  IN  LOCATION  B(l)  WITH  B(2>  SET  TO  0.  THEREAFTER,  THE 
C  JTH  HARMONIC  IS  RETURNED  AS  A  COMPLEX  NUMBER  STORED  AS 
C  B(2*J+1)  +  I  B(2*J+2) .  NOTE  THAT  THE  N/2  HARMONIC  IS  RETURNED 
C  IN  BIN+l)  WITH  B<N+2>  SET  TO  0.  HENCE,  B  MUST  BE  DIMENSIONED 
C  TO  S I ZE  N+2 . 

C  SUBROUTINE  IS  CALLED  AS  FFA  CB.N)  WHERE  N*2**M  AND  B  IS  AN 
C  N  TERM  REAL  ARRAY.  A  REAL-VALUED.  RADIX  8  ALGORITHM  IS  USED 
C  WITH  IN-PLACE  REORDERING  AND  THE  TRIG  FUNCTIONS  ARE  COMPUTED  AS 
C  NEEDED, 

C 

DIMENSION  B(2) 

COMMON  /CON/  PI  I,  P7 ,  P7TW0,  C22,  S22,  PI 2 
IW  IS  A  MACHINE  DEPENDENT  WRITE  DEVICE  NUMBER 
IW  *  1 1 MACH ( 2 ) 


PI  I  *  4 . *ATAN ( 1 . ) 

PI8  *  PII/8. 

P7  *  1 . /SORT ( 2 . ) 

P7TW0  *  2.*P7 
C22  *  COS ( P 1 8 ) 

S22  *  SINCPI8) 

PI2  *  2 .»PI I 
N  *  1 

DO  10  1*1,15 
M  *  I 
N  *  N*2 

IF  (N.EQ.NFFT)  GO  TO  28 
CONTINUE 
WRITE  ( IW, 9999) 

FORMAT  <3011  NFFT  NOT  A  POWER  OF  2  FOR  FFA) 
STOP 

CONTINUE 
NQPOW  *  M/3 


c 

C  DO  A  RADIX  2  OR  RADIX  4  ITERATION  FIRST  IF  ONE  IS  REQUIRED 
C 

IF  <N-N8P0W*3-1 )  50,  40,  30 
30  NN  *  4 

I  NT  *  N/NN 

CALL  R4TR<INT,  B(l),  B(INT+1),  B(2*INT+1),  B(3*INT+1)) 

GO  TO  60 
40  NN  *  2 

I  NT  =  N/NN 

CALL  R2TR( I  NT,  B( 1 ) .  B( INT+1 ) ) 

CO  TO  60 
50  NN  *  1 
C 

C  PERFORM  RADIX  8  ITERATIONS 
C 

60  IF  (N8P0W)  90.  90.  70 
70  DO  80  IT* 1 , N8P0V 
NN  =  NN*8 
I NT  *  N/NN 

CALL  R8TR(INT,  NN,  B(l),  BdNT+l),  B(2*INT+1),  B(3*INT+1), 

*  B(4«INT+1),  B( 5* INT+1 ) ,  B(6*INT+1),  B(7*INT+1),  B(l), 

*  B( INT+1),  B(2#INT+1),  B(3*INT+1),  B(4*INT+1),  B(5*INT+1), 

*  B(6*INT+1),  B(7*INT+1 ) ) 

80  CONTINUE 

C 

C  PERFORM  IN-PLACE  REORDERING 
C 

90  CALL  ORDKM.  B) 

CALL  0RD2IM,  B) 

T  *  B<2) 

B(2)  *  0. 

B(NFFT+1 )  *  T 
B(NFFT+2)  *  0. 

DO  100  I =4 , NFFT ,2 
B( I )  *  -B(I) 

100  CONTINUE 
RETURN 
END 
C 

C - 

C  SUBROUTINE:  FFS 
C  FAST  FOURIER  SYNTHESIS  SUBROUTINE 
C  PAD  IX  8-4-2 

C - 

C 

SUBROUTINE  FFS(B,  NFFT) 

C 

C  THIS  SUBROUTINE  SYNTHESIZES  THE  REAL  VECTOR  BOO  ,  WHERE 

C  K«l,2 . N.  THE  INITIAL  FOURIER  COEFFICIENTS  ARE  PLACED  IN 

C  THE  B  ARRAY  OF  SIZE  N+2.  THE  DC  TERM  IS  IN  B(l)  WITH 
C  B(2)  EQUAL  TO  0. 

C  THE  JTH  HARMONIC  IS  STORED  AS  B(2*J+1)  +  I  B(2*J+2>. 

C  ’THE  N/2  HARMONIC  IS  IN  B(N+1)  WITH  BCN+2)  EQUAL  TO  0. 

C  THE  SUBROUTINE  IS  CALLED  AS  FFS(B.N)  WHERE  N*2**M  AND 
C  B  IS  THE  N  TERM  REAL  ARRAY  DISCUSSED  ABOVE, 

C 

DIMENSION  B(2) 

COMMON  /CONI/  PI  I,  P7 ,  P7TW0,  C22,  S22 ,  PI2 


non  oon  n  non  '*>  n  non 


1W  IS  A  MACHINE  DEPENDENT  WRITE  DEVICE  NUMBER 

IW  *  1 1 MACH ( 2 ) 

IV*  1 

PI  I  =  4 . *ATAN ( 1 . ) 

PI8  =  PI  1/8. 

P7  =  1 . /SORT ( 2 .  ) 

P7TW0  *  2 . *P7 
C22  =  C0SIPI8) 

S22  *  SINIPI8) 

PI2  *  2.#PI I 
N  *  1 

DO  10  1=1,15 
M  =  I 
N  =  N*2 

IF  (N.EQ.NFFT)  GO  TO  20 
10  CONTINUE 

WRITE  ( IW, 9999 ) 

999  FORMAT  (30H  NFFT  NOT  A  POWER  OF  2  FOR  FFS) 

STOP 

20  CONTINUE 

B<2)  =  B(NFFT+l ) 

DO  30  1  =  1  ,NFFT 

B( I )  =  B ( I ) /FLOAT ( NFFT ) 

30  CONTINUE 

DO  40  1*4. NFFT, 2 
BCI)  *  -B(I) 

4©  CONTINUE 

N8P0W  *  M/3 

REORDER  THE  INPUT  FOURIER  COEFFICIENTS 

CALL  0RD2 ( M ,  B) 

CALL  0RD1(M,  B) 

IF  (NBPOW.EQ.O)  GO  TO  60 

PERFORM  THE  RADIX  8  ITERATIONS 

NN  =  N 

DO  50  IT= 1 , N8P0W 
I NT  -  N/NN 

CALL  R8SYNCINT,  NN,  B,  B(INT+1),  B(2*INT+I>,  B(3*INT+l), 

*  B<  4* INT+1 ) ,  B(5*INT+1),  B(6*INT+1),  B(7*INT+1),  B(l), 

*  B(  IHT+1 ) ,  B(2*1NT+I),  B(3*INT+1),  B(4*INT+1),  B(5*INT+1) 

*  B(6*INT+1),  B(7*INT+1 ) ) 

NN  =  NN/8 

50  CONTINUE 


DO  A  RADIX  2  OR  RADIX  4  ITERATION  IF  ONE  IS  REQUIRED 

60  IF  (M-N8P0W*3-1)  90,  80,  70 
70  INT  *  N/4 

CALL  R4SYN1INT,  B(l),  B(  INT+1 ) ,  B(2*INT+1),  B(3*INT+1)) 
GO  TO  90 
80  INT  =  N/2 

CALL  R2TR( INT,  B(l),  B( INT+1)) 


on 


C  SUBROUTINE:  R2TR 
C  RADIX  2  ITERATION  SUBROUTINE 


SUBROUTINE  R2TRCINT,  BO.  B1 ) 

DIMENSION  BO (2 ) ,  Bl(2) 

DO  10  K*  1  .  INT 

T  =  BO(K)  +  B1(K) 

BI(K)  *  BO(K)  -  BI(K) 

BO(K)  *  T 
10  CONTINUE 
RETURN 
END 
C 

C  SUBROUT I NE :  R4TR 
C  RADIX  4  ITERATION  SUBROUTINE 

C 

SUBROUTINE  R4TR( INT.  BO,  B1 ,  B2,  B3) 

DIMENSION  BO (2) ,  B1 (2) ,  B2(2) .  B3(2) 

DO  10  K*l, INT 

RO  *  BO(K)  +  B2(K) 

R1  *  B1(K)  +  B3(K) 

B2(K)  =  BO(K)  -  B2(K) 

B3CK)  »  B1(K)  -  B3(K) 

BO(K)  =  RO  +  R1 
B1(K)  *  RO  -  R1 
10  CONTINUE 
RETURN 
END 
C 

C  SUBROUTINE:  R8TR 
C  RADIX  8  ITERATION  SUBROUTINE 

C 

SUBROUTINE  R8TR( INT ,  NN,  BRO,  BR1 .  BR2 ,  BR3,  BR4 ,  BR5.  BR6.  BR7 , 

*  BIO,  BI1,  BI2 ,  BI3 ,  BI4 ,  BI5,  BI6,  B17) 

DIMENSION  L( 15) ,  BR0(2),  BR1 (2) ,  BR2(2),  BR3(2),  BR4(2) .  BR5(2), 

*  BRO (2) ,  BR7 < 2 ) ,  BI0(2> ,  BI 1 (2) ,  BI2(2),  BI3(2),  BI4I2), 

*  BI 5(2 ) ,  BI6(2),  BI7(2 ) 

COMMON  /'CON/  PI  I,  P7 ,  P7TW0,  C22 ,  S22 ,  P12 

EQUIVALENCE  (L15,L(1)),  (L14,L(2)),  (L13,L(3)),  (L12.L(4)). 

*  (LI  1 ,L<5) ) .  (L10,L(6) ) ,  (L9,L(7) ) ,  (La,L(8)),  (L7,L(9>>, 

*  (L6,L( 10) ) ,  (L5 ,L( 1 1 ) ) ,  (L4,L( 12) ) ,  (L3,L(13)),  (L2,L(14)), 

*  (LI ,L( 15) ) 

C 

C  SET  UP  COUNTERS  SUCH  THAT  JTHET  STEPS  THROUCH  THE  ARGUMENTS 
C  OF  W,  JR  STEPS  THROUGH  STARTING  LOCATIONS  FOR  THE  REAL  PART  OF  THE 
C  INTERMEDIATE  RESULTS  AND  JI  STEPS  THROUCH  STARTING  LOCATIONS 
C  OF  THE  IMAGINARY  PART  OF  THE  INTERMEDIATE  RESULTS. 


c 


DO  40  K=2 , 1 5 

IF  (L(K-l)-2)  10.  20.  30 
1©  L(K-l)  =  2 

20  L(K)  *  2 

CO  TO  40 

30  LCK)  =  LCK-l)/2 


CONTINUE 

PIOVN  - 

=  PI  I /FLOAT CNN) 

JI 

*  3 

JL 

=  2 

JR 

s  2 

DO 

120 

J1=2.L1 .2 

DO 

120 

J2= J 1 .L2.L1 

DO 

120 

J3=J2,L3.L2 

DO 

120 

J4= J3 ,L4 ,L3 

DO 

120 

J5=J4 ,L5 ,L4 

DO 

120 

J6=J5.L6.L5 

DO 

120 

J7= J6 , L7 , L6 

DO 

120 

J8=J7,L8,L7 

DO 

120 

J9=J8.L9,L8 

DO 

120 

J 10= J9 , L10 ,L9 

DO 

120 

Jl 1 = J10 , LI  1 ,L10 

DO 

120 

J12= Jl 1 .L12.L1 1 

DO 

120 

J13=J12,L13,L12 

DO 

120 

J14=J13,L14,L13 

DO 

120 

JTHET=JI4,L15,L14 

TH2  ■  JTHET  -  2 


IF  (TH2)  30,  30.  00 
50  DO  60  K=1  ,  INT 

TO  =  BROCK)  +  BR4CK) 

T1  «  BRICK)  +  BR5CK) 

T2  =  BR2CK)  +  BR6CK) 

T3  *  BR3CK)  +  BR7CK) 

T4  a  BROCK)  -  BR4CK) 

T5  =  BRICK)  -  BR5CK) 

T6  =  BR2CK)  -  BR6CK) 

T7  =  BR3CK)  -  BR7CK) 
BR2CK)  =  TO  -  T2 

BI13(K)  *  T1  -  T3 

TO  =  TO  +  T2 
T1  =  T1  +  T3 
BROCK)  =  TO  +  T1 

ERICK)  *  TO  -  Tl 

PR  =  P7*CT5-T7) 

PI  *  P7*  CT5+T7 ) 

BR4  C  K )  =  T4  +  PR 

BU7CK)  =  T6  +  PI 

BR6CK)  *  T4  -  PR 

BH5 C K )  =  PI  -  T6 

60  CONTINUE 

IF  CNN-O)  120.  120,  70 
70  KO  =  INT#8  +  1 

KL  *  KO  +  INT  -  1 
DO  80  K»KO ,KL 

PR  *  P7*CBI2CK)-BI6CK>) 
PI  «  P7*CBI2CK)+BI6CK>) 
TRO  «  BIOCK)  +  PR 
TIO  «  BI4CK)  +  PI 
TR2  »  BIOCK)  -  PR 


TI2  *  BI4(K)  -  PI 
PR  *  P7* ( BI 3 (K) -BI7 (K) ) 
PI  *  P7*(BI3(K)+BI7<K> ) 
TR1  *  BIl(K)  +  PR 
Til  =  BI 5(10  +  PI 
TR3  *  BI 1 (K)  -  PR 
TI3  =  B15(K)  -  PI 
PR  *  TR1*C22  -  Til *S22 
PI  *  Til *C22  +  TR1 *S22 
BIO(K)  *  TRO  +  PR 
B16CK)  =  TRO  -  PR 
BI7 (K)  =  TIO  +  PI 
BIKK)  =  PI  -  TIO 
PR  *  -TR3*S22  -  TI3*C22 
PI  *  TR3*C22  -  TI3*S22 


BI2(K)  =  TR2 
BI4(K)  =  TR2 
BI5CK)  =  TI2 
BI3(K)  =  PI  - 
CONTINUE 
GO  TO  120 
ARG  =  TII2*PI0VN 


TR2  +  PR 
TR2  -  PR 
TI2  +  PI 
PI  -  TI2 


Cl  =  COS (ARG) 

51  =  SIN(ARG) 

C2  =  Cl**2  -  Sl**2 

52  =  C1*S1  +  C1*S1 
C3  *  C 1 *C2  -  Sl*S2 

53  *  C2*S1  +  S2*C1 
C4  *  C2**2  -  S2**2 

C2*S2  +  C2*S2 


54  *  C2*S2  +  C2*S2 
C3  *  C2*C3  -  S2*S3 

55  *  C3*S2  +  S3*C2 
C6  *  C3**2  -  S3**2 

56  =  C3*S3  +  C3*S3 
C7  =  C3*C4  -  S3*S4 

57  =  C4*S3  +  S4*C3 
INTB  =  I NT*8 

JO  =  JR* INTB  +  1 
K©  =  JI*INT8  +  1 
JLAST  =  JO  +  I  NT  -  1 
DO  100  J= JO, JLAST 
R  =  KO  +  J  -  J0 
TR1  =  BR1 ( J ) *C1  -  BI 1 <K)*S1 
Til  *  BR1(J)«S1  +  BI  1  (K)*C1 
TR2  =  BU2( J )*C2  -  BI2(K)*S2 
TI2  *  BR2 ( J ) *S2  +  BI2(K)*C2 
TR3  =  BR3(J)*C3  -  BI3(K)*S3 


TR3  =  BR3(J)*C3  -  BI3(K)*S3 
TI3  =  BR3(J)*S3  +  BI3(K)*C3 
TR4  *  BR4(J)*C4  -  BI4(K)*S4 
TI4  *  BR4(J)*S4  +  BI4(K)*C4 
TR5  *  BR5(J)*C5  -  BI5(K)*S5 
TI5  *  BR5(J)*S5  +  BI5(IO#C5 
TR6  s  BR6(J)*C6  -  BI6(K)*S6 
TI6  *  BR6( J)*S6  +  BI6(K)*C6 
TR7  *  BK7 ( J ) *C7  -  BI7(K)*S7 
TI7  *  BR7(J)*S7  +  BI7(K)*C7 


TO  *  BP.O(J)  +  TR4 
T1  =  BIO(IC)  +  TI4 


C  SUBROUTINE:  R4SYN 
C  RADIX  4  SYNTHESIS 


C  SUBROUTINE:  RBSYN 
C  RADIX  8  SYNTHESIS  SUBROUTINE 


SUBROUTINE  RBSYN ( I NT ,  NN ,  BR0.  BR1 ,  BR2.  BR3,  BR4 ,  BR5,  BR6 ,  BR7 , 

*  BI0 ,  BI1 .  BI2,  BI3.  BI4 ,  BIS,  BI6,  BI7) 

DIMENSION  L( 1 5 ) ,  BR0I2) ,  BR1I2),  BR2(2) ,  BR3(2>,  BR4(2>,  BR3(2), 

*  BR6(2).  BR7  ( 2 )  ,  BI0(2) ,  BI1(2>,  BI2C2).  BI3C2),  BI4(2)  , 

*  BI 5 (2 ) ,  BI6(2) ,  BI7 (2 ) 

COMMON  ✓CONI/  PII,  P7 ,  P7TW0,  C22,  S22,  PI2 

EQUIVALENCE  (L15,L(I)),  (L14,L(2)),  (L13.LC3)),  CL12,L(4)), 


*  (Lll.L(S)),  ( LI  0 , 

*  (L6.LU0)),  (L5,L 

*  (Ll.L(lS)) 

L(  1 )  =  NN/8 
DO  40  K=2 , 1 5 

IF  ( L(K- 1 ) -2 )  10,  2 
L(K-l )  =  2 
L(&)  =  2 
CO  TO  40 
L(K>  =  LCK-D/2 
CONTINUE 

PIOVN  =  PI  I /FLOAT! NN) 
JI  *  3 
JL  =  2 
JR  =  2 


<  LI  0 , L( 6 ) ) , 
(L5,L< 1 1 ) ) 


10,  20,  30 


( L9 , L(7 ) ) ,  ( L8 ,L( 8  > ) ,  (L7.LI9)), 

( L4 , L ( 1 2 ) ) ,  ( L3 , L ( 1 3 ) ) ,  (L2,L(14)), 


DO  120 
DO  120 
DO  120 
DO  120 
DO  120 
DO  120 
DO  120 
DO  120 
DO  120 


J 1 =2 , LI ,2 
J2  =  J1 ,L2,L1 
J3=J2,L3 ,L2 
J4*J3,L4,L3 
J3=J4,L5,L4 
J6=J5,L6,L5 
J7=JS,L7,L6 
J8=J7 ,L8,L7 
J9=J3,L9,L8 


DO  120  J1O=J9,L10,L9 
DO  120  J I  1 = J ! 0 , L 1 1 ,L10 
DO  120  J 12= J 1 1 .L12.L11 
DO  120  J 1 3  =  J 1 2 ,  L 1 3 ,  L 1 2 
DO  120  J14=J13,L14,L13 
DO  120  JTIIET=  J 1 4  ,  LI  3  ,  LI 4 
TH2  =  JT1IET  -  2 
IF  (TH2 )  50,  50,  90 
DO  60  K=1  .  I  NT 


TTO  =  TO 
TT1  =  Tl 


BROCK)  +  B 
LROCK)  -  B 
BR2 (K)  +  B 
ER3 ( K )  +  B 
BR4(K)  +  B 
BR7CK)  -  B 
BR4  <  K )  -  B 
BR7  ( K )  +  B 
P7*  CT7+T5 ) 
P7* (T7-T5 ) 
TO  +  T2 
Tl  +  T3 


BR1 <K) 
BR1 <K> 
BR2 (K) 
BI13(K) 
BR6 ( K ) 
BR5(K) 
BR6 ( K > 
BR5  ( K 


T2  =  T0  -  T2 
T3  =  Tl  -  T3 
T4  *  T4  +  T4 
T5  =  PR  +  PR 
T6  *  T6  +  T6 
T7  =  PI  +  PI 
BROCK)  =  TTO 
BR1 <K)  =  TT1 
BR2CK)  =  T2 
BR3 ( K )  *  T3 
BR4  <  K )  =  TTO 
BR5CK)  =  TT1 
BR6 ( K )  =  T2 
BR7CK)  =  T3 
CONTINUE 
IF  (NN-B)  120, 
K0  =  INT*B  +  1 
KL  =  KO  +  I  NT 
DO  BO  K=KO ,KL 


T2 

T3 

T4 

PR 

T6 

PI 

TTO  +  T4 
TT1  +  T5 
T2  +  T6 
T3  +  T7 
TTO  -  T4 
TT1  -  T5 
T2  -  T6 
T3  -  T7 


BIOCK) 
BI7CK) 
BIO(K) 
BI7(K) 
T3*C22 
T4*C22 
BI2(K) 
BI5CK) 
BI  2  CK) 
B15(K) 
T8*C22 


BI  6(K) 
BI  1  CK) 
BI  6 (K ) 
BI  l  CK) 
T4*522 
T3*S22 
B14IK) 
BI3(K) 
BI4CK) 
BI3(K) 
T7*S22 


RI  =  -TB-*S22  -  T7*C22 
BIO(K)  =  (T1+T5)  +  CTI+T5) 
BI 4 (K)  =  (T2+T6 )  +  (T2+T6) 
BI  1  (K)  =  CPR+RR)  +  (PR+RR) 
BI 5(K)  =  (PI+RI)  +  CPI+RI) 
T5  =  Tl  -  T5 
T6  =  T2  -  T6 
BI2(K)  =  P7TW0*  CT6+T5 ) 


aiauiiSBaub 


c 


BI6<K)  =  P7TWO*(T6-T5> 

RR  -  PR  -  RR 

RI  =  PI  -  RI 

BI3(K)  =  P7TW0* ( R I +RR ) 

BI7 (K)  =  P7TW0*(RI  -RR) 


80 

CONTINUE 

GO  TO  120 

90 

ARC 

=  TH2*P10VN 

Cl  = 

COS (ARC) 

SI  = 

-SI N  C ARC) 

C2  = 

Cl**2 

- 

Sl**2 

S2  * 

C1*S1 

+ 

C1*S1 

C3  = 

C1*C2 

- 

S1*S2 

S3  = 

C2*S1 

+ 

S2*C1 

C4  = 

C2**2 

- 

S2**2 

S4  = 

C2*S2 

+ 

C2*S2 

C5  = 

C2*C3 

- 

S2*S3 

S5  = 

C3*S2 

+ 

S3*C2 

C6  = 

C3**2 

- 

S3**2 

S6  = 

C3*S3 

+ 

C3*S3 

C7  = 

C3*C4 

- 

S3*S4 

S7  * 

C4*S3 

S4*C3 

I  NT  8 

=  INT*8 

JO  = 

JR* 1  NTS 

+  1 

K9  = 

JI*INT8 

+  1 

JLAST  =  JO 

+ 

I  NT  - 

DO  100  J=J0 

i,  JLAST 

K  =  KO  + 

J 

-  JO 

TRO  =  BRO(J)  +■  BI6(K) 
TIO  *  BI7(K)  -  BR1(J) 
TRX  *  BRO(J)  -  BI6(K) 
Til  *  BI7 (K)  +  BR1CJ) 
TR2  *  BR 2(J)  +  BI4(K) 
TI2  *  BI5(K)  -  BR3( J ) 
TR3  =  BI 5 (K)  +  BR3 ( J ) 
TI3  »  BI4(K)  -  BR2(J) 
TR4  =  BR4 ( J )  +  BI2(K) 
TI4  =  BI  3 (K)  -  BR5(J) 
TO  =  BR4 ( J )  -  BI2CK) 
T1  =  BI3(K)  +  BR5 ( J ) 
TR5  =  P7*<T0+Tl) 

TI5  =  P7* (Tl -TO ) 

TR6  =  BR6 <  J )  +  BIO (K) 
TI 6  =  BIl(K)  -  BR7 ( J ) 
TO  =  BR6 ( J )  -  BIO(K) 
Tl  =  BI 1 (K)  +  BR7 ( J ) 
TR7  =  -P7* (T0-T1 ) 

TI7  =  -P7*(T1+T0) 

TO  *  TRO  +  TR2 

Tl  =  TIO  +  TI2 

T2  =  TR1  +  TR3 

T3  x  Til  +  TI3 

TR2  =  TRO  -  TR2 

TI 2  *  TIO  -  TI2 

TR3  =  TR1  -  TR3 

TI 3  *  TI 1  -  TI3 

T4  =  TR4  +  TR6 

T5  =  TI4  +  TI 6 

T6  *  TR3  +  TR7 


SUBROUTINE  ORD2(M,  B) 

DIMENSION  L( 15) .  B<2> 

EQUIVALENCE  (L15.L(I>).  (L14,L(2)>,  (L13,L(3)),  (L12,L(4)), 


*  (LI  1 ,L( 5) ) ,  ( 

*  (L6 , L( 1 0) ) ,  ( 

*  (L1.LU5)) 

N  =  2**M 

L(  1  )  =  N 
DO  10  K-2.H 

L(K)  =  L(K-1 )/2 
CONTINUE 
DO  20  K=M, 14 
L(K+1)  =  2 
CONTINUE 


(L10.LC6)).  ( L9 , L<7 )  )  ,  (L8.LC8)),  (L7,L(9)), 

( L5 , L ( 1 1 ) ) ,  ( L4 , L ( 1 2  > ) ,  <L3,L(13)>,  <L2,L(14>), 


DO  40  J 1=2, LI .2 
DO  40  J2-JI , L2.LI 
DO  40  J3=J2,L3.L2 
DO  40  J4=J3,L4,L3 
DO  40  J5-J4.L5.L4 
DO  40  J6=J5,L6,L5 
DO  40  J7=J6,L7,L6 
DO  40  J8= J7 , LB , L7 
DO  40  J9=J8.L9.L8 
DO  40  J10=J9,L10,L9 
DO  40  J1 Is J10 , LI  1 , L10 
DO  40  J12=J11 .L12.L11 
DO  40  J13=J12,L13,L12 
DO  40  J14-J13.L14.L13 
DO  40  JI=J14,L15,L14 
IF  (IJ-JI)  30,  40.  40 
T  =  B(IJ-l) 

B(IJ-l)  =  B(JI-l) 
BCJI-l)  =  T 
T  =  BCIJ) 

B(  I J)  *  B(JI) 

B(JI)  =  T 
IJ  =  IJ  +  2 
RETURN 


C  SUBROUTINE:  FFT842 
C  FAST  FOURI ER  TRANSFORM  FOR  5=2**M 
C  COOTLEX  INPUT 


SUBROUTINE  FFT842(IN,  N,  X,  Y) 

C 

C  THIS  PROGRAM  REPLACES  THE  VECTOR  Z=X+IY  BY  ITS  FINITE 
C  DISCRETE.  COMPLEX  FOURIER  TRANSFORM  IF  IN=0.  THE  INVERSE  TRANSFORM 
C  IS  CALCULATED  FOR  IN=1.  IT  PERFORMS  AS  MANY  BASE 
C  8  ITERATIONS  AS  POSSIBLE  AND  THEN  FINISHES  WITH  A  BASE  4  ITERATION 
C  OR  A  BASE  2  ITERATION  IF  NEEDED. 

C 

C  TOE  SUBROUTINE  IS  CALLED  AS  SUBROUTINE  FFT842  (IN.N.X.Y). 

C  THE  INTEGER  N  (A  POWER  OF  2).  THE  N  REAL  LOCATION  ARRAY  X.  AND 
C  THE  N  REAL  LOCATION  AIIRAY  Y  MUST  BE  SUPPLIED  TO  THE  SUBROUTINE. 


o  ft  n  ftftftft  ftftft  ftftft  >£  n  Oftftftft 


DIMENSION  X(2 ) ,  Y(2).  L(15) 

COMMON  /C0I12/  P 1 2 ,  P7 

EQUIVALENCE  (L15.L(1>).  (L14.LC2)),  (L13,L(3)>,  (L12.L(4)). 

*  ( LI  1 , L( 5 ) ) ,  <L10,L(6)),  (L9,L(7)>.  (L8,L(8)),  (L7,L(9)>, 

*  CL6.U10)).  (L5 ,L( l 1 ) ) ,  (L4.L(12)),  (L3.LU3)).  (L2.L(14)>. 

*  (LI ,L( 15) ) 


IV  IS  A  MACHINE  DEPENDENT  WRITE  DEVICE  NUMBER 

IV  =  1 1 MACH ( 2 ) 

IV*  1 

PI2  *  8.*ATAN( I . ) 

P7  =  1 . /SORT ( 2 . ) 

DO  10  1*1,15 
M  =  I 
NT  =  2**1 

IF  (N.EQ.NT)  GO  TO  20 
10  CONTINUE 

VRITE  (IV, 9999) 

»99  FORMAT  (35H  N  IS  NOT  A  POVER  OF  TWO  FOR  FFT842) 

STOP 

20  N2P0V  =  M 
NTHPO  *  N 
FN  =  NTHPO 

IF  (IN.Ea.l)  CO  TO  40 
DO  30  I  *  I , NTHPO 
Y(  I )  *  -Y(I) 

30  CONTINUE 
40  N8P0W  *  N2P0V/3 

IF  (N8P0V.EQ.0)  CO  TO  60 

RADIX  8  PASSES, IF  ANY. 

DO  39  I  PASS5 1 ,N8P0W 

NXTLT  =  2** ( N2P0V-3* I PASS ) 

LENCT  =  8*  NXTLT 

CALL  R8TX( NXTLT,  NTHPO,  LENCT,  X(l),  X(NXTLT+1>,  X(2*NXTLT+1 ) . 

*  X(3*NXTLT+1 ) ,  X(4*NXTLT+1 ) ,  X ( 5*NXTLT+ 1 ) ,  X( 6*NXTLT+ 1 ) , 

*  *  X(7*NXTLT+1 ) ,  Y(l),  Y(NXTLT+1 ) ,  Y(2*NXTLT+1 ) ,  Y(3*NXTLT+1 ) . 

*  Y(4*NXTLT+1 ) ,  Y(5*NXTLT+I ) ,  Y(6*NXTLT+1 ) ,  Y(7*NXTLT+1 ) ) 

50  CONTINUE 

IS  THERE  A  FOUR  FACTOR  LEFT 

60  IF  (N2P0V-3*N8P0W-l )  90,  70,  80 

GO  THROUGH  THE  DASE  2  ITERATION 


70  CALL  R2TX(  NTHPO,  Xd  ) ,  X(2),  Yd),  Y(2)> 

GO  TO  90 

CO  THROUGH  THE  BASE  4  ITERATION 

GO  CALL  R4TX(  NTHPO ,  Xd  )  ,  X(2),  X(3)  ,  X(4),  Yd).  Y(2)  .  Y(3),  Y(4)) 


C 


noon 


L(J)  =  1 

IF  (J-N2P0W)  100,  100,  110 
100  L(J)  =  2**<N2P0W+1-J> 

110  CONTINUE 
IJ  *  1 

DO  130  J 1 = I ,L1 
DO  130  J2=J1 ,L2,L1 
DO  130  J3=J2,L3,L2 
DO  130  J4=J3,L4,L3 
DO  130  J5=J4,L5,L4 
DO  130  J6=J5.L6,L3 
DO  130  J7=J6,L7,L6 
DO  130  J8= J7 , L8 , L7 
DO  130  J9=J8,L9,L8 
DO  130  J1O=J9,L10,L9 
DO  130  J1 1=J10.L1 1 , L10 
DO  130  JI2=J1 1 ,L12,Ll 1 
DO  130  J13=J12,L13,L12 
DO  130  J14=J13,L14,L13 
DO  130  JI=J14,L15,L14 

IF  (IJ-JI)  120,  130,  130 
120  R  =<  X(IJ) 

X(IJ)  =  X(JI) 

XCJI  )  =  R 
FI  =  Y( I J ) 

Y( I J )  *  Y(JI) 

Y(JI)  *  FI 
130  IJ  *  IJ  +  1 

IF  (IN.Ea.l)  GO  TO  150 
DO  140  1=1, NTHPO 
Y(I)  *  -Y(I) 

140  CONTINUE 
GO  TO  170 

150  DO  1 60  I = 1 , NTHPO 
XU  )  =  X(I  )/FN 
Y(I )  =  Y(I )/FN 
160  CONTINUE 
170  RETURN 
END 


SUBROUTINE:  R2TX 

RADIX  2  ITERATION  SUBROUTINE 


SUBROUTINE  R2TX( NTHPO,  CRO ,  CR1 .  CIO,  CI1) 
DIMENSION  Cn0(2),  CR1 (2) ,  CI0(2),  CI1(2) 

DO  10  Ks 1 , NTHPO, 2 
R1  =  CnO(K)  +  CR1 (K) 

CR1(K)  =  CRO(K)  -  CR1(K) 

CRO(K)  =  R1 

FI  1  *  CIO(K)  +  Cl  1 (K) 

Cl  1 (K)  *  CIO(K)  -  Cl  1 (K) 

CIO (K)  =  FI  1 
10  CONTINUE 
RETURN 


c 


i 


SUBROUTINE:  R4TX 

RAD I X  4  ITERATION  SUBROUTINE 


SUBROUTINE  R4TX(NTHP0,  CR0 ,  CRi , 
DIMENSION  CI10(2).  CRI  (2).  CR2C2) 
*  CI3C2) 

DO  10  K=1 .NTHP0.4 


CR2,  CR3,  CI0,  CI1,  CI2,  CI3) 
CR3  ( 2 )  ,  CU)(2),  Cl  1  (2)  ,  CI2(2) 


10 


Rl  *  CRO  <  K)  + 

CR2(K) 

R2  =  CRO (JO  - 

CR2(K) 

R3  =  CRI (K)  + 

CR3(K) 

R4  =  CRI <K)  - 

CR3(K) 

FI  1  =  CIO(K) 

+  CI2(K) 

FI2  =  CI0(K) 

-  CI2(K) 

FI3  =  CI1(K) 

+  CI3(K) 

FI4  =  CI1 <K) 

-  CIC(K) 

CROCK)  = 

Rl  + 

R3 

CIO(K)  = 

FI  1 

+  F 13 

CRI (K)  = 

Rl  - 

R3 

CI1CK)  = 

FI  1 

-  FI3 

CR2(K)  = 

R2  - 

FI4 

CI2(K)  = 

FI2 

+  R4 

CR3(K)  = 

R2  + 

FI4 

CI3(K)  = 

FI2 

-  R4 

CONTINUE 

RETURN 

END 

SUBROUTINE:  R8TX 

RADIX  8  ITERATION  SUBROUTINE 


SUBROUTINE  R8TX ( NXTLT ,  NTHPO,  LENCT,  CRO ,  CRi ,  CR2 ,  CR3,  CR4 , 

*  CR5 ,  CRO ,  CR7 ,  CIO,  Cl  1 ,  CI2,  CI3,  CI4,  CIS,  CI6,  CI7) 
DIMENSION  CRO ( 2 ) ,  CRI (2),  CR2C2) ,  CR3(2) ,  CR4(2) ,  CR5(2) ,  CR6I2) 

*  CR7 ( 2 ) ,  Cl  1 (2 ) ,  CI2(2),  CI3I2),  CI4I2),  CI5(2),  CI6C2), 

*  CI7 (2) ,  CI0(2) 

COMMON  /C0N2/  PI2,  P7 

SCALE  *  PI 2/ FLOAT (LENCT) 

DO  30  J=1 .NXTLT 


ARC 
Cl  = 

51  = 
C2  = 

52  = 
C3  = 

53  = 
C4  = 

54  = 
C5  = 

55  » 
C6  = 

56  » 
C7  = 

57  = 


=  FLOAT! J- 1 )*SCALE 
COS (ARC) 

SIH(ARC) 


0**2 

Cl*Sl 

C1*C2 

C2;'SI 

C2**2 

C2*S2 

C2*C3 

C3*S2 

C3**2 

C3*S3 

C3*C4 

C4*S3 


Sl**2 

C1*S1 

Sl*S2 

S2*C1 

S2**2 

C2*S2 

S2*S3 

S3*C2 

S3**2 

C3*S3 

S3*S4 

S4*C3 


DO  20  K=J, NTHPO, LENCT 


AR0  =  CROCK)  +  CR4CK) 

AR1  =  CRl(K)  +  CR5(K) 

AR2  =  CR2(K)  +  CR6(K) 

AR3  =  CI13CK)  +  CR7 CK) 

AR4  =  CROCK)  -  CR4(K) 

AR5  =  CR1(K)  -  CR5CK) 

AR6  =  CR2(K)  -  CR6CK) 

AR7  =  CR3(K)  -  CR7 (K) 

AIO  =  CIOCK)  +  CI4(K) 

All  =  Cl  1 (K)  +  C I  5 (K) 

AI2  =  C12(K)  +  C16(K) 

AI3  *  CI3CK)  +  CI7 (K) 

AI4  =  CI0(K)  -  CI4CK) 

AI 3  =  Cl  1 (K)  -  CI5(K) 

AI6  =  CI2(K)  -  CI6CK) 

AI7  =  CI3(K)  -  CI7(K) 

BRO  =  AR0  +  AR2 

BR1  =  AR1  +  AR3 

BR2  *  ARO  -  AR2 

BR3  *  AR1  -  AR3 

BR4  =  AR4  -  AI6 

BR5  =  AR5  -  A!7 

BR6  =  AR4  +  AI6 

BR7  =  AR3  +  AI7 

B10  =  A10  +  AI2 

BU  »  All  +  AI3 

BI2  *  AI0  -  AI2 

BI3  *  All  -  AI3 

BI4  *  AI4  +  AR6 

BIS  *  AI3  +  AR7 

BI 6  *  AI4  -  AR6 

BI7  -  AI5  -  AR7 

CROCK)  =  BRO  +  BR1 

CI0(K)  =  BIO  +  BI1 

IF  (J.LE.l)  GO  TO  10 

CRICK)  =  C4* C BR0-BR1 )  -  S4*CBI0-BII> 

Cl  1 (K)  =  C4*(BI0-BI 1 )  +  S4* ( BR0-BR1 ) 

CR2(K)  =  C2*CBR2-BI3)  -  S2*CBI2+BR3) 

CI2CK)  =  C2*CBI2+BR3)  +  S2*CBR2-BI3) 

CR3(K)  =  C6* ( BR2+BI3 )  -  S6*(BI2-BR3) 

CI3(K)  =  C6*CBI2-BR3>  +  S6*CBR2+BI3) 

fR  =  P7*CBR5-BI 5 ) 

TI  =  P7*  CBR5+BI 5 ) 

CR4(K)  =  C1#CBR4+TR)  -  S1*CBI4+TI) 

C 1 4  C  K )  =  C1*CBI4+TI )  +  S1*CBR4+TR> 
CR5(K)  =  C5*  CBR4-TR)  -  S5*(BI4-TI) 
CI5(K)  *  C5#CBI4-TI )  «■  S3* (BR4-TR) 
TR  «  -P7*CBR7+BI7) 

TI  *  P7*CBR7-BI7) 

CROCK)  =  C3*CBRG+TR)  -  S3SCBI6+TI) 

CI6(K)  =  C3*CBI6+TI )  +  S3#CBR6+TR> 

CR7 CK)  =  C7*CBR6-TR)  -  S7*CBI6-TI) 

CI7IK)  »  C7#CBI6-TI )  +  S7*CBR6-TR) 

GO  TO  20 

10  CRl (K)  »  BRO  -  BR1 

CIl(K)  »  BIO  -  BU 

CR2(K)  *  BR2  -  BIO 

CI2CK)  =  DI2  +  BR3 

CROCK)  •-  BR2  +  BI3 


,-N 


c 


PROCRAM  TO  CALCULATE  THE  CHANNEL  RESPONSES 
FROM  SOURCE  TO  SENSORS  BY  ITERATION  ON  THE 
FIRST  AP PROX I MAT IONS  OF  THESE  FUNCTIONS 
OBTAINED  FROM  THE  ARRAY  BY  STEERING  AND 
FOCUSING.  EACH  ITERATION  IMPROVES  THE 
ACCURACY  OF  THE  FUNCTIONS  BY  REDUCING  THE 
AMOUNT  OF  ERROR  IN  EACH  APPROXIMATION. 


COMPILE: 
LOAD : 


PLOT: 


FTN  HCONV  -64V 

LO^'HCONV 
LI  B— HCONV 
LI  B-MR1DF 
LI 
SA 
Q 

0  D.l  1  2  ( 

0  D.2  2  2  ( 

0  D.3  3  2  ( 

0  D .  4  4  2  ( 

0  D.5  72  (  : 

0  D.6  10  2  (  i 

0  D.7  11  2  (  ] 

0  D .8  12  2  (  : 

O  D . 9  13  2  (  : 

0  D. 10  14  2  (  : 

SEC  'HCONV 
C  1  2  3  4  7 
C  10  11  12  13  14 
SEG  'PL0T2D 
D.l 

SEG  'PL0T2D 
D.2 


IDEAL  HI  1 (W)  > 

IDEAL  H2KW)  ) 

INITIAL  APPROX  Hll(W)  ) 
INITIAL  APPROX  H21 (W)  ) 


(  Hll(W)  AFTER 
<  H21 (W)  AFTER 


ITERATIONS  ) 
ITERATIONS  ) 


(  HI  1 (W)  AFTER  10  ITERATIONS  ) 
(  H21 (V)  AFTER  10  ITERATIONS  ) 
(  HI  1 (W)  AFTER  20  ITERATIONS  ) 
(  H21(W)  AFTER  20  ITERATIONS  ) 


REAL*8  HI  1 (2048) ,1 1 1 (2048) ,RR(2048) ,TH(2048> ,RM 
REAL*8  HH1 1 (2048) ,1111 (2048) ,HH21 (2048) ,1121 (2048) 

REAL*8  H21 (2048) , 121 (2048) 

REAL*8  DEXP , DBLE , DL0G1 0 

COMMON  PI .TWOPI , THL I NC , THLCON , NFFT , NPTS , NN , L , H , H 1 , DVTMN2 

C0MM0N/A1/H1 1,111 ,H2l , 121 

COMMON/ A2/HH1 1,1111 .HH21 ,1121 

COMMON/ A3/RR ,  TH 

LOGICAL  ISSUC 

READU  ,300)P,Q,R,S 

L0G2N* 1 1 

N*2**L0G2N 

PI  =4 . *ATAN ( 1 . ) 

TW0PI*2.*PI 
THLINC* 1 . 5 
THLCON* . 5 
NFFT*N 
S I GN  * - 1 . 

ND2*N/2 

M=ND2+1 

CALCULATE  TIME  DELAYS  FOR  Hi  1 (V)  S  H21 (W) 


T1=SQRT( . 125**2+. 3**2) 

T2=SQRT( . 125**2+. 5**2) 

T3=S(1RT ( . 575**2+ .35**2 ) 

T4=SQRT( .575**2+. 45**2) 

DEFINE  IDEAL  IMPULSE  RESPONSE  OF  CHANNELS 
DO  1  1  =  1  ,N 
Hll (I )=0.DO 
1 1  1  ( I ) =0 . DO 
H21  ( I  ) =0 . DO 

1  121  ( I ) =0 . DO 
I=IFIX(Tl*1024.+.5) 

HI  1 ( I )  =  1 ./Tl 

1*1 F IX(T2* 1 024 . + . 5 ) 

Hll (I )*1 ./T2 
I *IFIX(T3*1024.+.5) 

H21 (I )*1 ./T3 
I = IFIX(T4*1024 . + . 5 ) 

H21 ( I ) = 1 ./T4 
TAKE  FFT  OF  TIME  SICNAL 

CALL  MR1DF(L0C2N,H1 1 .Ill, SIGN) 

CONVERT  TO  POLAR  FORM 

CALL  RP(H11 .Ill ,RR,TH,N.O) 

OUTPUT  FREQUENCY  DOMAIN  (MAGNITUDE) 

CALL  VRI (RR.RR, 1024 , 5) 

300  FORMAT (G20. 14) 

CALL  MR1DF(L0G2N,H21 .I21.SICN) 

CONVERT  TO  POLAR  FORM 

CALL  RP(H21 .121 .RR.TH.N.O) 

CALL  WRI (RR.RR. 1024,6) 

CALCULATE  ACTUAL  RESPONSE  RECEIVED  BY  ARRAY 
TO  BE  USED  AS  INITIAL  APPROXIMATIONS 
DO  2  I = 1 , N 

HH1 1(1 )=P*H1 1(1 )+Q*H21 ( I > 

1 1 1 1 ( I )  =  P*I 1 1 ( I ) +Q* 121 ( I ) 

EDI21  ( I  )  =R*H1 1  ( I  )  +S*H2 1  ( I  > 

2  1121(1 )=R*I 11(1 )+S*I21 ( I ) 

CONVERT  TO  POLAR  FORM  AND  OUTPUT 

CALL  RF(HH11 .1111 .RR.TH.N.O) 

CALL  WRI (RR.RR. 1024,7) 

CALL „RP ( HH2 1 , 1121 .RR.TH.N.O) 

CALL  WRI (RR.RR, 1024,8) 


SET  UP  FOR  ITERATIVE  PROCEDURE 
DO  3  1=1 ,N 
HI  1  ( I )*HH1 1 (I )/P 
3  I1I(I)=II11(I )/P 
K=  1 0 

ITERATE  ON  RESPONSE  FUNCTIONS  USING  THE 
IMFROVED  ACCURACY  OF  EACH  FUNCTION  TO  REDUCE 
THE  ERROR  IN  ITS  COMPLIMENT  (Hll(W)  AND  H21 (W) ) 
DO  4  J*1  .20 
DO  5  I  *  I  ,  N 

H21 ( I ) =HH21 ( I )/S-R*Hl 1(1 ) /S 
121 (I )=I 121 (I )/S-R*I 1 1(1) /S 
FI  1 1  ( I  )  *HH1  1  ( I  )/'P-Q*H21  ( I  )/? 

5  I  1  1  (  I  )*I  1 1  1  ( I )/P-Q*I21 ( I )/? 

IF( .NOT. ( J .EQ. 5. OR. J .EQ. 10 .OR. J.EQ.20) )C0  TO  4 
K=K+1 


nonoooonoonnnoonfifionnnnnononnftrjoonnnnon 


c 


PROCRAW  TO  I  PLACE  SOURCE  PLANE  CONTAINING  ACOUSTIC 
SOURCES  BY  CORRELATION  TECHNIQUES  ON  T1IE  SIGNALS 
RECIEVED  AT  THE  ARRAY  ELEMENTS  MONITORING  THE  PLANE. 
THIS  PROCRAM  SIMULATES  THE  RECEIVED  SIGNALS  AND  USES 
CROSS-CORRELATION  PROCESSING  TO  CREATE  A  2-D  SURFACE 
TLOT  DATA  FOR  THE  LOCATION  AND  POWER  OF  THE 
SOURCES  IN  THE  PLANE. 

2  SOURCES  EACH  WITH  AN  ECHO  ARE  SIMULATED 
WITH  VARIOUS  CHANCES  MADE  TO  DEMONSTRATE  THE 
EFFECTS'  OF  DIFFERENT  PROCESSING  TECHNIQUES 
INCLUDING  DEREVERBFRAT I  ON . 


COMPILE: 
LOAD : 


RUN : 


PLOT: 


FTN  ACORR  -64V 
SEC 

LO  *ACORR 
LO  R-ACORR 
LI 
SA 
Q 

0  D.l  12  (SIGNALS  RECEIVED  AT  EACH  SENSOR) 

0  D.2  2  2  (2-D  SOURCE  POWER  DATA) 

SEC  "ACORR 
C  i  2 

SEC  "PL0T2D 
D.l 

SEC  *PL0T3D 
D.2 
0 
0 
3 

30. 

.8 

50. 

10. 

30. 

0 

0 


REAL*4  X(4, 5120 ) ,XX( 64,64) ,CX(4,4) ,CY(4) ,T(4) ,PX(4) , IS (4) 
PJIAL*4  TT(  4 , 4 )  ,TAU  ( 4 ) 

N=2040 
11=4 
XHIN=0. 

XI  LAX =  1  . 

C  DEFINE  X , Y  LOCATIONS  OF  SOURCES  AND  ECHOS 
PX( 1 )= . 125 
PX(2)= .373 
PX(3)= .625 
PX( 4 ) = .875 
CX( 1 . 1 )=. 125*. 125 
CX( 1 .3)= .575*. 575 
CX (2,1 )* . 125*. 125 
CX(2 , 3 ) = . 325* . 325 
CX (3,1 )= .375*. 375 
CX( 3 , 3 ) = . 073* . 075 
CX ( 4 , 1 )= .625* .625 
CX (4,3)=. 173*. 175 
CY< 1 ) = .3* .3 


M 


TMIN=2 . 

TMAX=0  . 

DO  0  IC=  1  ,4 

T(K)=CQHT( (Xl-PX(K) >**2+XJ*XJ) 

IFITUO  .GE.THINJCO  TO  8 
TII1N=T!K) 

CC  7  I F  ( T  ( K )  .  LE .  THAX )  GO  TO  8 

CC  TMAX=T(K) 

8  CONTINUE 
DO  9  K= 1  , 4 

C  CALCULATE  TIHK  SHIFT  VALUE 

9  IG!K)=1FIX!  !T!K)-TMIN)*2048,+.5) 

S  =  0. 

C  INTEGRATE  SHIFTED  PRODUCT  SIGNAL 
DO  10  K= 1 .3072 
SS  =  0. 

DO  11  L=  1 , 4 

KX=K+ IS ! L) 

11  SS=SS+X!L,10O 

C  ADD  UP  POl/ERS  FROM  ALL  SIGNALS 
10  S=S+SS*SS 

C  SCALE  INTEGRAL  VALUE 
XX( I , J)=S/2048. 

C  OUTPUT  POWER  VALUE  A  THAT  POINT  IN  THE  PLANE 
WRITE! 6 , 800 )XX( I . J) 

£00  FORMAT! El  5.8) 

5  CONTINUE 
400  FORMAT ! 2 13 , 4G1 5.8) 


C  ***  ULTRASOUND  1  3  2  DIMENSIONAL  ARRAY  PATTERN  PROGRAM  *** 


C  ***  ULTRASOUND  1  3  2  DIMENSIONAL  ARRAY  PATTERN  PROGRAM  *** 
C  COMPILE:  FTN  FRSNL 

C  LOAD :  LOAD 

C  LO  B—FRSNL 

C  LI 

C  SA  * FRSNL 

c  au 

$ INSERT  SY5C0M>KEYS.F 


C  Z  *  DISTANCE  FROM  ELEMENT  PLANE  (METERS)  EX  .018 

C  DZ  =  INCREMENT  TO  Z  FOR  EACH  PLOT  OF  MM  EX  .0005 

C  NXEL  =  NUMBER  OF  ELEMENTS  IN  X  DIRECTION  EX  10 

C  NYEL  =  NUMBER  OF  ELEMENTS  IN  Y  DIRECTION  EX  10 

C  NZ  =  NUMBER  OF  PLOTS  GENERATED  FOR  DIFFERENT  Z’S  EX  20 

C  NA  =  NUMBER  OF  PLOTS  GENERATED  FOR  DIFFERENT  A’S  EX  20 


C  KXPTS  =  NUMBER  OF  POINTS  IN  X  DIRECTION  ON  PLOTTING  SURFACE  EX  50 

C  KYPTS  =  NUMBER  OF  POINTS  IN  Y  DIRECTION  ON  PLOTTING  SURFACE  EX  50 

C  XD  =  CENTER  TO  CENTER  SPACING  OF  ELEMENTS:  X  DIRECTION  (METERS)  EX  .001 

C  YD  =  CENTER  TO  CENTER  SPACING  OF  ELEMENTS:  Y  DIRECTION  (METERS)  EX  .001 

C  L  =  HALF  THE  WIDTH  OF  ELEMENT  (METERS)  EX  .000125 

C  VS  =  SPEED  OF  SOUND  IN  WATER  (METERS/SEC)  EX  1400. 

C  AMP(II.JJ)  =  GAIN  ON  ELEMENTt I  I , JJ )  EX  1.20 

C  XDEG  =  MAXIMUM  VALUE  OF  LINEAR  PHASE  SHIFT.  X  DIRECT  EX  5. 

C  YDEG  =  MAXIMUM  VALUE  OF  LINEAR  PHASE  SHIFT,  Y  DIRECT  EX  5. 

C  FOCUS  =  MAXIMUM  VALUE  OF  QUADRATIC  PHASE  SHIFT  EX  5. 

C  XUAX  *  MAXIMUM  X-DINENSION  OF  VIEWING  AREA  (METERS)  EX  +.015 

C  XMI N  =  MINIMUM  X-DIMENSION  OF  VIEWING  AREA  (METERS)  EX  -.015 

C  YMAX  =  MAXIMUM  Y-DINENSION  OF  VIEWINC  AREA  (METERS)  EX  +.015 

C  YMIN  =  MINIMUM  Y-DIMENSION  OF  VIEWING  AREA  (METERS)  EX  -.015 

COMMON  /AREA1/  J .XC , YC , NXEL. NYEL.PI . V0 , V6 , APHI . PI2 
REAL  AMP(20) .PHI0.L, LAMBDA, K,XC(50, 20) ,YC(50,20) ,Z.ZI 
REAL  ARRAY (410,20) 

COMPLEX  J.VAL,U,CEXP,CSQRT,V0.V2,V6. APHI (50,20) , CEXP0 
DOUBLE  PRECISION  PI2 
700  FORMAT ( 8G 15.8) 

600  FORMAT (213, 2G1 5.8) 

000  FORMAT (212 ,2G1 5.8) 

PI=3. 141592G535 
PI2=6. 283185307 17958647 
J=(0. , 1 . ) 

READ (?, 700 )NF 
READ (7 , 700 ) F 
READ (7 , 700 ) DF 
READ (7, 700) VS 
READ (7, 700) KXPTS 
READ (7, 700) KYPTS 
READ (7 , 700 )XMAX 
READ  (7, 700 XMI  N 
READ (7, 700) YMAX 
READ (7, 700) YMIN 
READ(7,700)XD 
READ (7, 700) YD 
READ(7 ,700 )L 
READ (7 ,700 ) NZ 
READ (7 ,700 )Z 
READ(7,700)DZ 
READ (7, 700) FOCUS 
READ (7, 700) XDEG 
READ (7, 700) YDEG 
READ (7, 700) SWT 


C  ***  ULTRASOUND  1  8  2  DIMENSIONAL  ARRAY  PATTERN  PROGRAM  *** 


XSTEP  =  0 . 

I F  ( KXPTS  .  EQ .  1  )  GO  TO  4 

XSTEP  =(XMAX-XMIN> /FLOAT  (KXPTS-l  ) 

4  YSTEP=0. 

I F ( KYPTS . EQ . 1 ) CO  TO  3 

YSTEP* ( YMAX-YMI N ) /FLOAT (KYPTS-1 ) 

3  XI2* 1 ,/L**2 

READ ( 6 , 700 )XN 
HA= IFIX(XN) 

F=F-DF 
DO  2  M=  1  .  RF 
F=F+DF 
LAMBDA* VS/F 
K=2.*PI/LAMBDA 
DO  2  N=1 ,NA 
READ ( 6 , 700 )XN 
NXEL* I F I X ( XN ) 

READ  ( 6 , 700 )  XN 
IFYEL*  IFIXCXN ) 

DO  7  11*1, NXEL 

READ ( 6 ,700 ) ( AMP  < JJ ) ,JJ=1 , NYEL) 

DO  7  JJ=1 , NYEL 

APni ( 1 1 . JJ)=CMPLX(AMP( JJ) ,0. ) 

7  CONTINUE 
IF(FOCUS.EQ.0. )G0  TO  30 
FOCUS* -K/2 . /FOCUS 

30  XDEG=K*SIN(PI*XDEG/180. >/C0S(PI*XDEG/180 . ) 
YDEC=K*S I N ( P I *YDEG/ 1 80 . )/COS(PI*YDEG/180. ) 
IF1XD.EQ.0. )C0  TO  5 
X© =XD* ( NXEL- 1 )  /2 . 

DO  50  11*1 .NXEL 
DO  50  JJ=1 .NYEL 

XCCII ,JJ)*(II-1 )*XD-X© 

50  CONTINUE 
GO  TO  8 

5  CONTINUE 
READC8, 700 )XN 
READ(8,70O)XN 
READ(8 , 700 )XN 
DO  90  11=1, NXEL 

90  READ(8,700HXC(II,JJ),JJ*1,NYEL) 

8  I F ( YD . EQ . 0 . ) GO  TO  6 

YO=YD* ( NYEL- 1 )/2. 

DO  60  11=1, NXEL 

DO  60  JJ=1  ,  NYEL 

YC( 1 1 , JJ)*(JJ-1 )*YD-Y0 
60  CONTINUE 

GO  TO  9 

6  CONTINUE 

DO  80  11*1, NXEL 

80  READ(8 ,700 )(YC(II,JJ),JJ*1 ,NYEL) 

9  I F ( SUT . EQ . 0 • ) GO  TO  1 

DO  1  11*1 .NXEL 
DO  1  JJ=1 , NYEL 

R*XC( 1 1 , JJ) 

THETA* YC ( 1 1 , JJ)  _ 

XC(II ,JJ)*R*COS (THETA) 

YC( 1 1 , JJ)=R*SIN(THETA> 

CONTINUE 


1 


C  ***  ULTRASOUND  1  S  2  DIMENSIONAL  ARRAY  PATTERN  PROGRAM  *** 


DO  70  11=1 , NXEL 
DO  70  JJ=1 , NYEL 

C  SET  FOR  LINEAR  AND  ^JAD RATIO  PHASING 

PHI0=FOCUS*!XC( I  I ,JJ)*XC(II , JJ )+YC( 1 1 , JJ)*YC( 1 1 ,JJ)) 
6  +XDEG* ( XC ( 1 1 , J  J ) -XC (1,1)) 

S  +YDEG*(YC(II , JJ)-YC(1 , 1 ) ) 

APHI  ( 1 1  ,  JJ)=APHI  C  I  I  ,  JJ)*CEXP0(  J  ’’HIO) 

C  PHIO=PHIO+PHI ( 1 1 , JJ) 

70  CONTINUE 
Z=Z-DZ 
DO  2  I = 1 . NZ 
Z=Z+DZ 
VO=.!*K*Z 
V2=-  J*K/Z 

VO = V2*CEXP0 ( V0 ) / ( XI 2+V2 ) 

V6=-V2/2 ./ ( 1 -+V2/XI2) 

DO  10  JJ=1 .KYPTS 

Y0=YSTEP*(JJ-1 l+YMIN 
DO  11  11=1, KXPTS 

XO=XSTEP*( I 1-1 ) +XMI N 
VAL=U(X0 , YO ) 

ARRAY! I  I . ( 1  +  (N-1 >*NZ> ) = (CABS(VAL) )**2 
11  CONTINUE 

10  CONTINUE 

2  CONTINUE 

N=NZ*NA*NF 

WRITE! 5 . 600 IKXPTS . N .XMIN ,XMAX 
WRITE! 3. 1000) 
ieO0  FORMAT! ’ (8E12.3)  ’  ) 

WRITE! 3 ,900)! (ARRAY! 1 1 ,1) ,1  =  1 ,N) , 1 1  =  1 .KXPTS ) 

900  FORMAT ! 8E1 2 . 5 ) 

CALL  EXIT 
END 
C 
C 

FUNCTION  U(X0,YO) 

COMMON  /AREA1/  J ,XC „YC , NXEL , NYEL , PI , VO ,V6 .APHI , PI2 
RRVL  XC  ( 30 , 20 )  ,  YC  ( 50  , 20  )  ,  X0  .  YO 
DOUDLE  PRECISION  PI2 

COMPLEX  U, J.V0.V4.V6, SUM, CEXP, APHI (50,20) , CEXP0 
SUM=  ^0 • , O • > 

DO  1  11=1, NXEL 
DO  1  JJ*I .NYEL 

I F ( REAL ( APH I ( 1 1 ,JJ)) . EQ . 0 . )C0  TO  1 
V4=V6*( (XO-XC! I  I , J J ) ) **2+ ( Y0-YC ( 1 1 ,JJ) )**2) 

C  IF(REAL(V4) .LT.-87. )C0  TO  1 

SUM=SU?I+APHI  ( 1 1  ,  JJ  )*CEXP0(V4) 

1  CONTINUE 
U=VO*SUM 
RETURN 
END 
C 
C 

COMPLEX  FUNCTION  CEXPO(Z) 

COMMON  /AREA1/  J ,XC,YC, NXEL. NYEL, PI .V0.V6, APHI ,PI2 

REAL  XC ( 30 , 20 ) , YC ( 30 , 20 ) , P I 

COMPLEX  CEXP, CEXPO,J,Z,ZZ,V0,V6, APHI (50,20) 

DOUBLE  PRECISION  Y.PI2 
C EXPO = CEXP ( Z ) 


c  ***  ULTRASOUND  1  S  2  DIMENSIONAL  ARRAY  PATTERN  PROGRAM  *** 


RETURN 

99  Y=DBLE(AIMAG(Z) ) 

IF(DABS(Y) .LT. 51000. )GO  TO  1 
X=R£AL(Z) 

Y=Y-DINT(Y/PI2)*PI2 

ZZ*X+J*SNGL(Y) 

CEXPO=CEXP(ZZ) 

RETURN 

1  CEXPO=CEXP(Z) 

RETURN 


non  on  n  noon 


MAIN  FOR  MINI  IV  OPTIMIZING  FRESNEL  DIFFRACTION 


lW=2*N*N+N*N+14*N+4*M+ll-5*N-M-5=2NM+NN+9N+3M+6 
IMPLICIT  REAL*4  (A-H.O-Z),  INTEGERS  CI-N) 

REAL* 8  X, W.DX.EPS 

INTEGERS  IREF.N.M.MAXFUN, IW.NUIREF 
DIMENSION  X<  38) , W(26740 > , IREF ( 487 ) 

DIMENSION  YC(32. 32) , PHI (32,32) 

COMPLEX  APHI (32,32) ,V0,V6 

COMMON  /AREA©/  KXPTS , KYPTS ,  KZPTS , NXEL , NYEL 
COMMON  /AREA1/  YC, PHI ,V0,V6, APHI 
COMMON  /AREA3/  V.IREF 
EXTERNAL  FDF 

GAINS'  X( 1 )->X(29) ,  SPACINCS:  X(30)->X(58) 

KXPTS  =191 
KYPTS= 1 
KZPTS = I 

READ ( 8 , 30 )Xl ,X2,X3 
NXEL® IFIXCX2) 

NYEL® IFIXCX3) 

DO  1  1*1, NXEL 

1  READ (8, 300 ) (X( < 1-1 )*NYEL+J ) ,  J=  1 ,NYEL) 

300  FORMAT ( 8G1 3.8) 

NX1 =NXEL*NYEL+1 
N=2*NXEL*NYEL 
READ (9 ,30) XI ,X2 ,X3 
DO  2  1=1, NXEL 

2  READ( 9 ,300 ) (X( <1-1 )*NYEL+J+NX1 ) ,J*1 .NYEL) 

N=4*NXEL*NYEL  IF  OPTIMIZING  YC  8  PHI ,  OTHERWISE  N=2*NXEL*NYEE 
M* KXPTS*KYPTS*KZPTS 
M=KXPTS*KYPTS*KZPTS 
DX= . 0 1 2D0O 
EPS® 1 . D-14 
MAXFUN® 1 00 

IW=2*N*M+N*N+9*N+3*M+6 
NUIREF=5*N+M+5 

FILLING  UP  ARRAY 

DO  5  1=1 ,nXEL 
DO  5\J=1 .NYEL 
YC( I , J)=O.E00 
PHI ( I , J)=O.EO0 
5  CONTINUE 

CALL  MINI 1W( FDF, N, M, X.DX.EPS, MAXFUN, W,IW, IREF, NUIREF) 

C  *  FDF  FUNCTION  CALLS  =  W(M+I ) 

WRITE(l.lO)  (X( I ) , I = 1 , N) 

10  FORMAT (2 ( ’  SOLUTION  ’ ,4F20 . 1 4/6( 10X.4F2O . 14/ ). 10X.F20. 14/ ,/)//) 
WRITE! 1 ,40)W(M+1 ) 

40  FORMAT (/’  CALLS  OF  FDF  ’ ,G15.8/) 

XMAX= 1 . 5 
XMIN*-XMAX 

WR I TE ( 5 , 1 00 ) M , NYEL , XM I N , XMAX 
100  FORMAT (213, 2C1 5.8) 

WRITE( 5 ,200 ) 

200  FORMAT (’  (El 3. 8)’  ) 

WRITE (5, 20) (W(I ) ,1=1 ,M) 

20  FORMAT ( E 1 5 . 8 ) 


VRI TE ( 6 , 30 )  NYEL ,  NXEL ,  NYEL  ,  ( X ( I )  .  I  =  1  ,  NXEL )  ,V(M+1 ) 
WR I TE ( 7 , 30 ) NYEL , NXEL , NYEL 

WRITE(7,30) (X( I ) , I  =  NX  1 , M ) , (YCCI ,1 ) ,1=1 ,NXEL> 

30  FORMAT (Cl  5. 8) 

CALL  EXIT 
END 


SUBROUTINE  FDF(N .M.X.A.B) 

FRESNEL  DIFFRACTION  PROCRAM  8  DERIVATIVES 

IMPLICIT  REAL*4  (A-H.O-Z),  I NTEGER*2  (I-N) 

REAL*8  X.A.B.BNAX 
I NTEGER*4  N.M 

COMPLEX  JO , VAL , U , CEXP , V0 , V2 , V6 , APHI (32.32) 

REAL*4  L. LAMBDA. K.KX( 192, 1 ) ,Kl .K2.KL2.K2L2 
I NTEGER*2  P.Q 

DIMENSION  X(N) ,A(M.N) ,B(M) ,YC(32.32) ,PHI (32,32) 

DIMENSION  R( 192. 1 .58. 1 ) ,RR( 192. 1 .58, I ) , CTHET( 1 92 . I . 58 , I ) , 

8  STHET( 192. 1 ,58, I ) 

DIMENSION  SRCOS( 192, 1 ) ,SRSIN( 192, 1 ) , SRC0S2 (192,1 ) .SRSIN2C192 , 1 ) 
COMMON  -'AREA©/  ICXPTS  ,  KYPTS ,  K2PTS  .  NXEL ,  NYEL 
COMMON  /AREA 1  /  YC . PH I , VO , V6 . APH I 

COMMON  /AREA2/  R.RR . CTHET .STHET , SRCOS .SRSIH .SRC0S2 .SRSIN2 

FRENSL  PROCRAM 

P I *3 . I 4 1 5926535897632 
J0=(0. , 1 . ) 

F= 1 5000 . EO0 

VS= 1 524 . E00 

LAMBDA=VS/F 

K=2.*P I /LAMBDA 

XHAX= 1 . 5E00 

XNIN=-XMAX 

YMAX=0 . EOO 

YNIN*-YNAX 

L= -0O5EO0 

Z1=3.0E00 

DZ= . 00 1 EOO 

ANMAX*  3 . OEOO 

AXMAX=O.EO0 

AYMAX=0 . EOO 

XSTEP*0 .  EOO 

I F ( KXFTS . EQ . 1 )  CO  TO  4 

XSTEP  s ( XMAX-XMI N ) / ( KXPTS- 1 ) 

4  YSTEP=0 . EOO 

I F ( KYPTS . EQ . 1 )  GO  TO  3 
YSTEP* ( YNAX-YMI N )/( KYPTS- 1 ) 

3  XI2* 1 ./L**2 

1F(ANMAX.EQ.0. )C0  TO  30 
ANMAX* -K/2 . /ANMAX 
30  CONTINUE 

AXMAX*K*DSIN(PI*AXMAX/I80. )/DC0S(PI*AXMAX/180 . ) 

AYMAX*K*DS I N  <  P I *AYMAX/ 1 80 . )/DC0S(PI*AYMAX/180 . ) 

DO  70  1*1, NXEL 
DO  70  J=l .NYEL 


C  SET  FOR  LINEAR  AND  QUADRATIC  PHASING 

CC  PHIO=ANHAX*(X< I+< J-l >*NXEL+NXEL*NYEL)**2+YC( I ,J)**2) 

CC  G  +AXNAX*(X( I+( J-l )* NXEL+ NXEL*  NYEL )-X( 1 ♦ NXEL*  NYEL) ) 

CC  G  +AYHAX*  ( YC  ( I  .  J  )  -YC  (1,1)) 

C 

APHI ( I , J) =CHPLX<SNCL<X< I > ) .0. ) 

C 

70  CONTINUE 
7  =  71  -T17 

DO  2  IZ=1 .KYPTS 
Z=Z+DZ 
V0= JO*K*Z 
V2=— JO*K/Z 

VO=V2*CEXP(V0)/<XI2+V2> 

V6=-V2/2./(  1  .  +V2*L*L ) 

DO  10  J=1 .KYPTS 

YO=YSTEP*< J-l ) +YMI N 
DO  11  1=1 , KXPTS 

XO=XSTEP*( 1-1 >+XMIN 
VAL=U (X0 , Y0 , X , N ) 

B( I  +  ( J-l )*KXPTS>= (CABS(VAL) ) 

11  CONTINUE 
10  CONTINUE 
2  CONTINUE 
C 

C  FRESNEL  DERIVATIVES  PROGRAM 

C 

C  AHRAY(KXPTS,KYPTS)=>B(M)  i  M=KXPTS*KYPTS 
C  ARRAY (I ,J)=>B(I+(J-1 ) *KXPTS ) 

C  AMP ( NXEL , NYEL ) GXC ( NXEL , NYEL ) SYC ( NXEL , NYEL ) 8PH I (NXEL, NYEL) * >XCN) 
C  i  N=4*NXEL*NYEL 
C  AMP(I,J)=>X(I+(J-1)*NXEL) 

C  XC( I , J)  =  >X( I  +  ( J-l )*NXEL+NXEL*NYEL) 

C  YCC I , J)=>X( I+(J-1 )*NXEL+2* NXEL* NYEL) 

C  PHI C I , J)=>X< I+( J-l ) *NXEL+3*NXEL*NYEL ) 

C  DAMP (KXPTS, KYPTS, NXEL, NYEL )8DXC( )6DYC( )8DPHI ( )=>A(M,N) 

C  :  M=KXPTS*KYPTS  ,  N=4*NXEL*NYEL 
C  DAMP( I . J,K.L)=>A( I+CJ-l )*KXFTS,K+(L-1 )*NXEL) 

C  DXCC I , J.K,L)=>A( I-MJ-I ) * KXPTS , K+ ( L- 1 )*NXEL+NXEL*NYEL) 

C  DYC( I , J,K.L)=>A( I+( J-l ) * KXPTS , K+ ( L- 1 )*NXEL+2* NXEL* NYEL) 

C  DPni (I ,J,K,L)=>A(I+(J-l ) *KXPTS , K+ ( L- 1 )*NXEL+3*NXEL*NYEL) 

C 

KL2=K*L*L 
ZK=Z*Z+KL2*KL2 
K2L2  =  -IC*KL2/2./ZK 
Kl=K*Z/2./ZK 
K2=K/ZK 

DO  50  1=1 .KXPTS 
XO=XSTEP*( 1-1 )+XHlN 
CC  DO  50  J=1  .KYPTS 

CC  YO=YSTEP*( J-l )+YMIN 

J*  1 

YO=O.EOO 
CC  Z=Z1 -DZ 

CC  DO  50  IZ= 1 , KZPTS 

CC  Z*Z+DZ 

CC  ZK*Z*Z+KL2*KL2 

CC  K2L2=-K*KL2/2./ZK 


cc 


Kl=K*Z/2./ZK 
SRCOS ( I ,J)=0. 

STS I N ( I , J ) =0 . 

DO  SO  P=  1  ,  NXEL 
DO  60  d- 1 , NYEL 

XYM=  (XO-X(P+<G-l ) *NXEL+NXEL*NYEL ) )**2+<Y0-YC(P  ,<1) )**2 
THET=PUI <P.a>+KI*XYM 
CTHET ( 1 ,J,P,ft) =COS (THET ) 

STIIETd .J,P,Q)=SIN<THET> 

R( I ,  J,P.Q)  =  EXP(JC2L2*XYM> 

PJU  I  .J ,P,Q)=X(P+<Q-1  >*NXEL)*R(  I  ,J,P,Q) 

SRCOS (I , J ) = SRCOS ( I , J > +RR( I , J , P ,0) *CTHET ( I .J.P.Q) 

SRSI N ( I , J)=SRSINd ,J)+RR( I , J , P ,G)*STHET ( I ,J,P,G) 

60  CONTINUE 

SRC0S2 ( I , J)=SRCOS( 1 , J)*SRC0S( I , J) 

SRSIN2< I , J)=SRSIN< I , J )*SRS I N ( I . J ) 

KK( I . J)=KL2/SQRT(ZK)/SQRT(SRC0S2d , J ) +SRS I N2 ( I ,J) ) 

50  CONTINUE 
C  CALCULATE  DAMP  3  DXC 
DO  55  1=1 , KXPTS 
XO=XCTEP*  ( 1  - 1 )  +XTIIN 
CC  DO  55  J=1 .KYPTS 

CC  YO=YSTEP*( J-l )+YMIN 

CC  Z=Z1-DZ 

CC  DO  55  IZ= 1 .KZPTS 

CC  Z=Z+DZ 

CC  ZK=Z*Z+KL2*KL2 

CC  K2=K/ZK 

DO  55  P=1 , NXEL 
DO  55  Q=1 .NYEL 

A(I-KJ-1 >*KXPTS,P+<G-1)*NXEL)=KK(J ,J)*(SRC0S2(I ,J.)*R(I ,J,P,G) 
3  *CTIIETd  .J.P,G)+SRSIN2<I  ,J)*R(I  ,J,P,G)*STHET(I  ,J,P,G)) 

A( I +( J-I ) * KXPTS , P+(G-1 )*NXEL+NXEL*NYEL) =K2*KK( I ,J)*CXO- 
8  X(P+(Q-1 )*NXEL+NXEL*NYEL> )*(SRCOS( I ,J)*RR( I ,J,P,G>* 

3  (Z*STHET< I ,  J  ,  P  ,  Q ) +KL2*CTHET ( I . J ,P ,G> )+SRSIN( I ,J)* 

8  RR( I ,J,P,Q)*(-Z*CTHET< I , J , P . G ) +KL2*STHET C I .J.P.Q) ) ) 

55  CONTINUE 

C  CALCULATE  DYC 

C  CALCULATE  DPHI 

C 

C  NORMALIZE  RESPONSE 
BMAX=  B ( 1 ) 

DO  90  1=1 .KXPTS 
90  BMAX=DHAX1  (BMAX.Bt  D) 

MID=KXPTS^2fI 
I WI D=3 
IS=MID-IWID 
IF*MID+IWID 
DO  92  I = IS , IF 

92  B( I ) =B( I )-BMAX*DBLE< COS ( FLOAT ( I -MID )/FLOAT( IWID)*1 .57) ) 

RETURN 

END 

C 

C 

FUNCTION  U ( X0 , Y0 , X , N ) 

IMPLICIT  REAL*4  (A-H.O-Z).  I NTEGER*2  CI-N) 

REAL*8  X 
INTEGER* 4  N 

COMPLEX  U , VO , V4 , V6 .SUM, CEXP , APHI (32,32) 


nnnnnnno  noon 


c 


DIMENSION  YC(32,32) ,PHI (32,32) ,X(N) 

COMMON  /ARFAO/  KXPTS , KYPTS , KZPTS , NXEL , NYEL 
COMMON  /AREAl/-  YC.PHI  .V0.V6.APHI 
SUH= (0. .0. ) 

DO  1  1=1, NXEL 
DO  1  J=1 .NYEL 

V4=V6* ( (X0-SNCL(X( I+( J-l >*NXEL+NXEL*NYEL) ) )**2+(Y0-YC( I , J) )**2) 
IF(REAL(V4) .LT.-l ,E05)G0  TO  1 
SUM=SUM+APHI ( I ,J)*CEXP(V4) 

1  CONTINUE 
U=V0*SUM 
RETURN 
END 


SUBROUTINE  MI NI I V( FDF , N ,M. X , DX. EPS . MAXFUN . W, I W , IREF , NUIREF 5 
NON-LINEAR  MINIMAX  OPTIMIZATION  USING  GRADIENTS. 

FCT  A  PROCRAM  DESCRIPTION  SEE: 

K.  MADSEN  AND  H.  SCHJAER- JACOBSEN .  ’FORTRAN  SUBROUTINES  FOR 
NON-LINEAR  MINIMAX  OPTIMIZATION’,  REPORT  R135,  ELECTROMAGNETICS 
INSTITUTE.  TECHNICAL  UNIVERSITY  OF  DENMARK,  FEBRUARY  1975, 

IMPLICIT  REAL*8  (A-H.O-Z),  I NTEGER*4  (I-N) 

DIMENSION  X<N) ,W(IW) , IREF (NUIREF) 

EXTERNAL  FDF 

IF  ((N.LT.l) .OR. (M.LT. 1 ) .OR. (DX.LE.0D0) .OR. CEPS.LE.0D0) ) RETURN 
Nl =N+1 
NB=  1 

NBI =  NB+M 
NA=NB1+M 
NA1 =NA+N*M 
NXX=NA1+M*N 
NY=NXX+N 
NUY=N1 * ( Nl +5 ) +M 
NIREF=NY+IIUY 
NUIREF=5*N1+M 

CALL  SUB 1 W ( FDF , N , M , X , DX,  EPS , W ( NA ) ,W(NA1 ) ,V(NB) ,W(NB1 > ,W(NXX) , 
1W(NY) , I REF, MAXFUN, NUY, NUIREF) 

RETURN 
END 

SUBROUTINE  SUB1W(FDF ,N ,M,X, DX.EPS , A, A1 ,B,B1 ,XX,Y. IREF.MAXIT, 

1  NUY. NUIREF) 

IMPLICIT  REAL*8  (A-H.O-Z),  INTEGER*4  (I-N) 

DIMENSION  X(N) ,A(M,N) ,A1 (M,N) ,B(M) ,B1 (M) ,XX(N) ,Y(NUY) 

I NTEGER*4  I REF (NUIREF) 

LOGICAL  DIV4 

C  THE  FOLLOWING  NUMBER  IS  AN  EXPRESSION  FOR  THE  MACHINE  ACCURACY 

SEPS=16.**(-13) 

C  SET  SOME  CONSTANTS 

DIV4= .FALSE. 

NTAL=0 
Ml =M+1 

C  FIND  THE  LENGTH  OF  THE  START INC  VECTOR 

XHAX=0D0 
DO  10  1=1 ,N 


10  XMAX=DMAX1  (XMAX,  DABS  ( Xt  I  )  )  ) 

CALCULATE  FUNCTION  VALUES 
CALL  FDFCN.Il.X.A.B) 

FO=0DO 
DO  20  J=1  .M 
S  =  DABS ( B( J ) ) 

20  IF  (S.CT.FO)  F0  =  S 

ITERATIVE  LOOP  STARTS  HERE 

FIND  THE  SOLUTION  XX  TO  THE  LINEAR  SUBPROBLEM 
30  CALL  MA19W  ( N ,M . A ,M , B , DX. OD0 .XX , V , IREF , NUY , NU I  REF 
F=Y(Ml ) 

IF  (F.CT.FO)  COTO  139 
FIND  THE  NEW  POINT 
DX=ODO 
DO  40  I  =  1  ,  N 
S=  DABS (XX ( I ) ) 

IF  (S.CT.DX)  DX=S 
40  Y ( I >  =X( I >+XX< I ) 

CALCULATE  FUNCTION  VALUES 
CALL  FDF(N,M,Y,A1 ,B1 ) 

F 1 =0D0 
DO  50  J=1 ,M 
S  =  DABS(B1(J)) 

50  IF  (S.CT.Fl )  F1=S 

REVISE  THE  STEP  LENGTH 
IF  ( (F0-F1 ) .GT. (F0-F1/4. )  GOTO  60 
DX=DX/-4. 

DIV4  = .TRUE. 

GOTO  100 

60  IF  (DrV4)  GOTO  90 
S=QD© 

DO  80  J=1  ,M 
T=B( J ) 

DO  70  I  =  1  ,  N 
70  T=T+A ( J , I ) *XX( I ) 

T*  DABS(B1 ( J )-T) 

80  IF  (T.CT.S)  S=T 

IF  (S.LE.  (F0-F1  )^4.  )  DX=DX*2. 

90  DIV4=. FALSE. 

TEST  IF  THE  NEW  POINT  IS  ACCEPTABLE 
100  IF  ( ( FO-F 1 ) . LE . ( . 0 1  * ( F0-F ) ) )  GOTO  130 
INTRODUCE  THE  NEW  POINT 
F0  =  F1 
XMAX=ODO 
DO  110  1=1 ,N 
X<  I  )=Y( I ) 

XIL4X=DfIAXl  (XMAX,  DABS(X(I))) 

DO  110  J=1 ,H 
110  At J,  I )=A1 (J. I ) 

DO  120  J=1 ,H 
120  B( J ) =B1 ( J) 

130  NTAL=NTAL+l 

WRITE( 1 , 1O00)NTAL 
1000  FORMAT (Gl 5. 8) 

IF  (NTAL.GT.MAXIT)  GOTO  140 
TEST  OF  CONVERGENCE  CRITERION 
IF  ( DX . LE . EPS*XHAX )  COTO  140 


GOTO  00 

139  E1’S  =  0  . 

140  B 1 ( 1 ) = NTAL 
RETURN 
END 

SUBROUTINE  MA19W  ( N , M . A , I A , B , DX. EPS ,X,RES , I  REF , NURES .NUIREF) 
IHPLICIT  REAL*8  (A-H.O-Z),  INTEGER*4  (I-N) 

DIMENSION  A < I A , N ) , B ( M ) , X ( N ) , RES (NURES) 

I NT EGER* 4  I  REF (NU I  REF) 

NURES* (N+l ) * ( N+5 ) +N 
NU IREF=5*  ( N+ 1  )+M 
N 1 =M+ 1 
N2=N+2 

NURH0=MAX0(M,3*N1  )  +  l 
NH  = 1 +NURHO 

CALL  MAI 9BW ( N ,M , A , I A , B . DX , EPS ,X,RES ( NH) , N1 ,RES( 1 ) , IREF , RURHO , NUIRE 
I F ,  N2 ) 

RETURN 

END 

SUBROUTINE  MAI 9BW(N,M,A, I A , B , DX , EPSH ,  X ,  H ,  N 1 ,RHO. IREF ,NURHO . NU IREF , 
1N2) 

IMPLICIT  REAL*8  (A-H.O-Z),  I NTEGER*4  (I-N) 

FlEAL*8  A( IA.N) ,B(M) ,X(N) ,H(N1 ,N2) .RHO(NURHO) .lam 
I NTEGER*4  I REF (NU I REF) 

LOGICAL  GAMCH 

IF  ( (DX.LT.OD0) .OR. (EPSH.LT.0D0) )  RETURN 
IF  ( ( N . LT . 1 ) . OR . (M . LT . 1 ) )  RETURN 

NN2=N+N2 
NN3=NN2+NI 
LREF=NN3+N1 
LBHD=LREF+M 
Ml =M+ 1 

SI4N= 1 . / (4 . *N) 

NTAL=0 

FIND  EQUATION  10  WHICH  GOES  INTO  THE  FIRST  REFERENCE 
C  =  -l  . 

DO  51  J=1  , M 
I  REF ( LREF + J ) =  0 
I F ( DABS ( B ( J ) ) . LT . C )  COTO  51 
C=DABS(B( J) ) 

IO  =  J 

51  CONTINUE 

INITIALIZE  REFERENCE  ARRAY! 

S  =  ODO 
T  =  B( 10) 

XM=N 

DO  52  1  =  1  ,N 
D=A( 10, I ) 

S*S+DABS(D) 

XM*X?It1D0 

IF  (D.EQ.ODO)  D=-l . 

IREF( I )*DSICN(XM,-D*T> 

52  I REF ( LBND+ I ) = I REF ( I ) 

XTIMO 

I  REF  ( N 1  )  *  DS I GN  ( XM ,  T ) 

I  REF ( LREF  + 1 0 )  *  I  REF  ( If  1 ) 

INITIALIZE  DH.DG,  AND  GAM 
IF  ( (DX*S) .GT.C)  GOTO  53 


GYM=DX 
DO  =  CAT  I 

d;i=c-dx*s 

COTO  54 

53  DC=C/S 
DH  =  ©  . 

G\n=DG 

FIND  VECTOR  X 

54  DO  55  I  =  1  ,  N 
Xfl= I  REF ( I  ) 

55  X(  I  )--DEIGN(DG,XH) 

FIND  MATRIX  H 
S= 1 ./(S+l . ) 

H ( N 1 . N 1 ) =S 
IREFINN2+NI )=0 
DO  58  I  =  1  ,  N 
XTi=  -  IREF  (  I  ) 

H ( N 1 . I ) =DS I GN<  S , XM) 

T=DABS(A( IO,I) )*S 
H ( I . N 1  )  -T 
DO  56  J=1  ,N 
XTI=-IREF(  J) 

56  H<  I  ,J)=DSIGN(T,XN) 

IF  CT.GT.O. )  GOTO  57 
I REF ( NN2+ I )  =  1 

H ( I , N2 )  =  1  . 

GOTO  58 

57  I  REF ( NN2+I ) =0 

58  H(I,I)=ISIGN(1, IR£F( I ) )+H( I , I ) 

INITIALIZE  SOME  CONSTANTS 
RSIGs 1D0-S 
DCH=DG 
DH 1 =  DH 
ETA=GAH 
EEEX=QD0 
G.AMCIl1  .TRUE. 

NBIN=N 
GOTO  640 

ITERATIVE  LOOP  STARTS  HERE 
FIND  VECTOR  RHO 

500  DGH-DG 

IF  (IOS.LT.O)  GOTO  503 
DO  502  I = I . N1 
S= -H ( I ,N1 ) 

DO  501  J=1  ,N 

501  S=S-H( I ,J)*A(I0,J) 

302  RHO ( I )=S 

GOTO  520 

503  DO  505  1=1 . N1 
S=-H( I , N1 ) 

DO  504  J=1  ,N 

504  S-S+H( I , J)*A( 10, J) 

505  RHO ( I ) =S 
COTO  520 

BOUNDS  VIOLATED 
510  I O^M+JO 
DHH*DH 

I OS  =  DS I GN  C 1 . DO ,X( J0 ) ) 

IF  (IOS.LT.O)  GOTO  5 1 2 


DO  51 1  1=1 , N 1 

511  RIIOl  i  )  =  -»(  I  .  J0)-H<  I  ,N1  ) 

COTO  520 

512  DO  513  1=1 , N 1 

513  RII0(I)=H(I,J0)-H(1,N1) 

FIND  EQUATION  LO  WHICH  LEAVES  THE  REFERENCE 

FIND  -H( I .N1 )/RHO( I )  FOR  NEGATIVE  VALUES  OF  RHO(I) 

520  LB=0 
RTAU=OD0 

IF  (IO.GT.M)  RTAU= 1 . 

DO  522  1=1 , N 1 

IF  (RHO< I ) .CE.0.DO)  COTO  521 
LB=LB  >1 
I REF ( N 1 +LB) = I 
KK=N1 

IF  < IR£F(NN2+I ) .GT.O)  KK=N2 
RHO  ( II 1  + 1  )  =  -H  ( I  ,  K3C )  /RHO  ( I  ) 

521  IF  ( I  ADS ( I REF  1 1 ) ) . LE . M )  GOTO  522 
RTAU  =  RTAU +RIIO  ( I  ) 

522  CONTINUE 

FIND  THE  COEFFICIENTS  IN  THE  RATIONAL  EXPRESSION 
(TT+LAM*SS ) / ( RS I C+ LAM* RTAU ) 

DG2=DG*2 . 

IF  (DH.GT.OD0)  GOTO  523 
TT=DG*RSIC 

SS=DG*RTAU+DHH+DGH-DG 
NL=  1 

GOTO  524 

523  RSIC=1 .-HSIC 
RTAU* -RTAU 
TT=DH*RSIG 

SS=DH*RTAU+DHH-DH+DGH-DC 

NL=2 

524  SHAX=0. 

L=  1 

525  LA=L 

FIND  MINIMUM  VALUE  OF  -H(  I  ,N1  )/RHO(  I ) 

L0=IREF(N1+LA) 

LAM=RH0(N1+L0) 

I LAM= I REF ( NN2+L0 ) 

IF  (LA.EQ.LB)  GOTO  527 

L=LA+ 1 

LH=LA 

DO  526  I =  L , LB 
I N= I REF ( N1  +  1  ) 

S=RH0(N1+IN) 

I S= IREF ( NN2+IN) 

IF( ( ( IS.EQ. I  LAM) .AND. (S.GE.LAM) ) .OR. ( IS.LT. I LAM) )  COTO  526 

L0=  IN 

LATI=S 

I LAM= IS 

LM=  I 

526  CONTINUE 

REORDER 

I REF ( N 1 +LM ) = I REF ( N 1 +LA ) 
ifj:f(ni+la)=l0 

FIND  MAX ( -RHO ( I ) ) 

527  SMAX=  DMAX I  ( SHAX .  -RHO  ( LO ) ) 

REVISE  THE  COEFFICIENTS  OF  THE  RATIONAL  EXPRESSION 


ML=NL 

IF  (IABS(  IRF.F(LO)  )  .GT.M)  ML=NL+2 
GOTO  ( 530 ,529,529, 528 ) , ML 

528  TT=TT+DG2*H(L0,N1 ) 

SS  =  SS+DC2*RII0(L0> 

COTO  530 

529  RSIC=RSIG-2.*H(L0,N1 ) 

RTAU=RTAU-2 . *RHO(LO ) 

330  IF  ( <RSIC*SS.GT.RTAU*TT) .AND. (LA.LT.LB) )  GOTO  525 
TEST  IF  -RHO(LO)  IS  TOO  SHALL 
SMAX=SHAX/4 . 

540  IF(-RHO(LO) .GE.SMAX)  GOTO  550 
LA=LA-1 

L0=IR£F(N1+LA) 

GOTO  540 

UPDATE  REFERENCE  ARRAYS 
550  I REF ( LREF  + 1 0 )  =  I S I GN (1 ,  1 0S ) 

I REF ( LREF  + 1 ABS ( IREF(LO) ) )=0 
IF  ( IABS( IREF(LO) ) .GT.M)  NBIN=NBIN-1 
IF  (IO.GT.ri)  NBIN=NBIN+1 
I REF (L0)=ISIGN(I0,IOS) 

UPDATE  MATRIX  H 
RROLO  =  RHO ( LO ) 

DO  560  J=1 , N 1 

560  HILO, J)=-H<L0, J)/RHOLO 
DO  562  1=1 ,N1 

IF  (I .EO.L0)  GOTO  562 
S=RHO( I ) 

DO  561  J=! ,N1 

561  H(I,J)=  S*H(L0,J>+H(I,J) 

562  CONTINUE 

IF  ANY  SIGNS  HAVE  BEEN  CHANCED.  UPDATE  H 
RHON1MD0 
DO  569  1=1 ,N1 

569  PJIO (Nl  +  I  )  =  l  . 

IF  (LA.LE. 1 )  GOTO  590 
K=LA-1 

DO  570  1=1 ,N1 

570  RH0(NN2+I )=0D0 
DO  571  1=1 ,K 

571  RHO ( I REF (Nl+I )+Nl)=-l . 

DO  575  1=1 ,N1 

IF  ( RHO (Nl+I). GT . 0 . )  GOTO  57E 
DO  572  J=1 ,N1 

572  RH0(NN2+J)=RH0(NN2+J)-H( I ,J) 

GOTO  575 

573  DO  574  J=1 ,N1 

574  RHO( NN2+J ) =RHO( NN2+J ) +H( I , J ) 

575  CONTINUE 

RHON I =RHO( NN2+N1 ) 

DO  576  J=I , N 1 

576  H(J,N1 )=H(J,N1 )/RHONl 
DO  57 B  1=1 ,N 
S=RH0(NN2+I ) 

DO  577  J=1 ,N1 

577  H( J , I )=-S*H( J,N1 )+H(J, I ) 

578  CONTINUE 

CHANCE  SIGNS  IN  SOME  ROWS  OF  MATRIX  H 
DO  530  L= 1 ,K 


I = IREF (N1 +L) 

J  =  -IREFd ) 

I REF ( I ) =  J 

IREF(LREF+IABS( J) )=J 
DO  530  J=1  ,N1 
580  H ( I , J ) =  -H< I ,J> 

UPDATE  THE  LAST  COLUMN  OF  H  IN  CASE  OF  DEGENERACIES 

590  IF  C I REF ( HN2+L0 ) . Ed . 0 )  GOTO  600 
B(LO.N2)  =  -H(L0,N2)/'(RHO(L0)*RHON1  ) 

DO  595  1=1 ,N1 

IF  ( ( IREF(NH2+I ) .EQ.O) .OR. ( I .EQ.L0) )  GOTO  593 
IF  ( IR£F(NN2+I ) -IREF (NN2+L0 ) )  591,593,592 

591  Bd  ,N2)=Hd  ,N2)/RH0N1 
GOTO  595 

592  H ( I , N2 ) =  DABS <  H  ( L0 , N2 ) *RHO d  ) ) 

IREF ( NN2+ I ) = IREF ( NN2+L0 ) 

GOTO  595 

593  C=H( I ,N2)dUI0Nl+H(L0 ,N2>*RH0( I ) 

IF  C (LA.GT. 1 ) .AND. (RH0(N1+I ) .LT.0D0) )  C=-C 
IF  (C.GT.0)  GOTO  594 
E(I ,N2)=1 .DO 

IREFCNN2+I )=IR£F(NN2+I >*1 
GOTO  595 

594  H( I ,N2)=C 
395  CONTINUE 

GOTO  610 

TEST  FOR  DEGENERACIES 

600  DO  601  1=1 ,N1 
I  REF(NN2d)=0 

IF  (HU  .Nil  .GT.OD0)  GOTO  601 
IREF ( NN2+I ) = 1 
H< I ,N1 )=OD0 
H ( I , N2 )  =  1  DO 

601  CONTINUE 

UPDATE  GAM 
610  GAMCn= .FALSE. 

IF  ( (NDIN.EO.O) .OR. ( ( GAMM. LT . 2 . *GAM) .AND. (GAMM.LT.DX) ) )  GOTO  620 
IF  (GAH.LT.CAMM)  GAMCH= .TRUE. 

CAM=GAHM 

UPDATE  DH  AND  DG 

620  S=0. 

RSIG=ODO 

DO  622  1=1 ,N1 
K= IA3S( IREF ( I ) ) 

IF  (K.GT.M)  GOTO  621 

R50( I )=DCK)*ISIGN( 1 , IREF( I ) ) 

S=S+n( I ,N1 )*RHO( I ) 

GOTO  622 

621  RS I C=nS I G+H ( I , N 1 ) 

622  CONTINUE 

IF  CRSIG.NE.0DO)  GOTO  623 
DH=DABS(S) 

DG=CAM 
GOTO  630 

623  DC=DflINl  (GA>I,DABS(S)/RSIG) 

DH*0 . 

IF  (DG.EQ.GAM)  DH=DABS(S-DG*RSIC)/( 1D0-RSIG) 

CALCULATE  PARAMETER  VALUES 
630  DCH=ODO 


ERRX=0 . DO 
DO  632  1=1 . Nl 

IF  ( IABS( IRCF( I ) ) .GT.M)  GOTO  631 
rJ10(  l  )  -  DH-RHO  ( I  ) 

COTO  632 

631  FJIO  ( I  )  =  DC 

632  CONTINUE 

DO  636  1  =  1  ,N 
S=H< 1 . I )*RHO( 1 ) 

DO  633  J=2 , HI 

633  S  =  S+ll(J,  I  )*RHO<J> 

IF  ( IREF(LBI1D+I  )  .EQ.O)  GOTO  634 
T=S 

XM= I REF ( LBND+ I ) 

S=DS  I CN  ( DC ,  XM ) 

ERRX=DHAX1 C ERRX , DABS (S-T) ) 

634  X( I )=S 

IF  (DABS(S) .LE.DGH)  GOTO  636 
DCH=DABS<3) 

JO=I 

636  CONTINUE 

NrAL=NTAL+l 

CALCULATE  GAMM 

640  GAIM=  DM INI < DMAX1 ( 5 . *DC,CAM) ,D^> 

FIND  EQUATION  10  WHICH  GOES  INTO  THE  REFERENCE 
DHH=ODO 
T=DH 
T1=DH 

DO  632  I  =  1  ,M 
S--B(I) 

DO  650  J=1  ,N 

650  S=S+A(I ,J)*X(J) 

RHO(I )=S 

IF  <IREF(LREF+I ) .NE.0)  GOTO  651 
IF  (DABS(S) .LE.DHH)  GOTO  652 
DHH=DABS(S) 

IOS=DSIGN( l . D0 , S ) 

10=1 

GOTO  652 

651  T=DMAXI(T  .DABS(S)) 

T1=DIIIN1  (Tl  , DABS (S ) ) 

652  CONTINUE 

CALCULATE  DH1  AND  ETA 
ETA= DNAX 1  ( CAHTI .  DS I GN  ( ETA+ERRX:.  DH I  -T  )  ) 

IF  (  .NOT. GALICH)  T=DMAX1  (T,  DH1  +  CT-TI  )  ) 

DH 1 =  DMAX 1 (T.DH+EPSH) 

TEST  IF  CONSTRAINTS  ARE  VIOLATED 
IF  CDCH  .CT.ETA)  GOTO  510 

TEST  OF  CONVERGENCE  CRITERION 
IF  CDHH  . GT.DH1 )  GOTO  500 

IF  ( (GAM.LT.DX)  .AND.  (DHH  +DH.GT.  (DH1-DH')*2.  )  .AND.  (NBIN.CT.0) )  GOTO 
1610 

RHOIMl )=DH 
IREF(N2)*NBIN 
IREF(N+3)=NTAL 
RETURN 


c  ****  TWO  DIMENSIONAL  PLOTTING  PROCRAM  **** 


C  ****  TWO  DIMENSIONAL  PLOTTING  PROGRAM  **** 

C  COMPILE  FTN  PL0T2D  FTN  PL0T2D  -64V 

C  LOAD  LOAD  SEG 

C  LOAD  *PL0T2D 

C  LO  B—PL0T2D  LO  B—PLOT2D 

C  LI  HGP 1 F_NONSHARED  LI  HCP 1 FV_NONSHARED 

C  LI  LI 

C  SA  *PL0T2D  SA 

CO  O 

C  RUN:  R  *PL0T2D  SEG  'PL0T2D 

C  (USES  A  SET-UP  DATA  FILE  CALLED  D—PLT2D 

C  AND  ASKS  FOR  A  FILE  NAME  OF  DATA  POINTS  ) 

C 

C 

REAL  XX(620) ,YY<620,8) 

CC  REAL  XX (2040) ,YY( 2048, 8) 

DIMENSION  I  FORM ( 40 ) , I F I LE (16) 

CALL  SRCHSS ( I  NTS ( 1 ) , ' D—PLT2D’  , INTS(7) . INTS(5) , I TYPE, ICODE) 

C 

C 

10  CALL  TNOUA( ’ DATA  FILE  NAME  =  ’  , I  NTS (17)) 

READ(1 , 1 00 ) I F I LE 

100  FORMAT (16A2) 

101  FORMAT (213, 4G1 5.8) 

CCI0I  FORMAT (214, 4G1 5.8) 

CALL  SRCHSS ( I  NTS d ) . I F I LE , I NTS ( 32 ) , INTSC4) , ITYPE, ICODE) 

IF( ICODE. EO.INTS(0))GO  TO  18 
WRITE! 1 , 106) IFILE 

106  FORMAT ( ’ DATA  FILE  ’ ,16A2) 

CALL  T NOU  ( ’  WAS  NOT  FOUND .  PLEASE  RE-ENTER  NAME .  ?: ,  I  NTS  ( 38 )  ) 
GO  TO  10 

120  WRITE!  1  , 107)  IFILF. 

107  FORMAT ( ' THERE  IS  A  FORMAT  PROBLEM  WITH  ’,16A2) 

CALL  TNOUC  PLEASE  GIVE  A  NEW  DATA  FILE  NAME’ , INTSC32) ) 

CALL  SRCHSS ( I  NTS (4) , INTS(0) , INTS(0) , INTS(4) , ITYPE.ICODE) 

GO  TO  10 

18  READ(8. 101 , ERR= 1 20 )NR, NC , XNI N ,XMAX . YMIN , YMAX 
C  IF(Nn.LT. INTS(1 ) .OR.NC.LT. INTS(1 ))G0  TO  90 

C  I F  ( NR .  EO .  I  NTS  ( 1  )  .  AND  .  NC .  EQ. .  I  NTS  (  1  )  )  GO  TO  500 

C  I F ( NR . GT . I  NTS (192). OR . NC . GT . I  NTS ( 1 92 ) ) GO  TO  90 

READ (8,1 04 ) I  FORM ( 1 ) 

IF( I FORM d >/256.NE. ’ (  ’/236)GO  TO  16 
REWIND  8 

READ ( 8 , 101 )NR,NC,XMIN,XMAX,YMlN,YMAX 
READ(8, 104) IFORM 
104  FORMAT (40A2) 

IF(NC.GT.8)NC=8 

READ(8, I FORM, END® 300 , ERR= 1 6) ( (YY( I  ,  J ) , J= 1 ,NC) ,1=1 ,NR) 

GO  TO  17 

16  REWIND  8 

READ(8, 101 )NR,NC,XMIN,XMAX, YMIN. YMAX 
IF ( NC . GT . 8) NC=8 

READ( 8 , END® 300 ) ( (YY( I , J ) , J= 1 , NC) , I  *  1 , NR) 

17  CALL  SRCHSS ( I NTS ( 4 ) , I NTS ( 0 ) , I NTS ( 0 ) , I NTS (4) , ITYPEVICODE) 
NRMAX=NR 

NCMAX=NC 


1=1 , NR 
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c  ****  TWO  DIMENSIONAL  PLOTTING  PROCRAM  **** 


1  XX ( I )=XMIN+< 1-1 . )/ ( NR-1 . )*<XMAX-XMIN) 

READ ( 9 , 400 ) NORMAL 
400  FORMAT (II) 

I F ( NORMAL . EQ . 0 ) GO  TO  6 
YI1AX=YY<  1.1) 

DO  4  J=1 ,NC 
DO  4  I  =  1  , NR 

IFtYMAX.LT.YYCI . J > ) YMAX=YY( I .J) 

4  CONTINUE 

DO  5  J=1 , NC 
DO  5  1=1 , HR 
YY( I ,J)=YY(I ,J)/YMAX 

5  CONTINUE 

6  CONTINUE 

CALL  GNGRAF ( XX , YY (1,1),NR,1 ,1) 

IFINC.EO. 1 )C0  TO  300 
DO  3  J=2 . NC 
JJ  =  J 

I F ( JJ . GT . 4 ) J J= J-4 

CALL  GNCRAF ( XX , YY (1 , J ) , NR ,  J  J  ,  0 ) 

3  CONTINUE 

300  CALL  SRCHSS ( I  NTS ( 4 ) , INTS ( 0 ) , I NTSIO ) , I NTS! 5 ) , I TYPE , I CODE) 
CALL  EXIT 
END 
C 

SUBROUTINE  GNGRAF (X.Y.N, II ,JJ) 

C 

C  GENERAL  GRAPHING  ROUTINE  OF  X.Y  LINEAR  DATA 
C  WHERE  X  IS  LIST  OF  X  VALUES 

C  Y  IS  LIST  OF  Y  VALUES 

C  N  IS  LENGTH  OF  LISTS 

C 

C  TO  BE  BOUND  WITH  IOBLOC  BLOCK  DATA  SUBPROCRAM 
C 

DIMENSION  X( 1 ) ,Y<1 ) ,NX< 10) ,NY(10) , ITI (15) .NHOLI30 i 
DATA  I HR, I HP , I HO , IHM, IHG/1HR, 1 HP , 1 HQ . 1HM, IHG/ 

C 

MDV I N = 9 
MDVOUT= 1 

IFIJJ.NE. 1 )C0  TO  200 
CALL  GRESET 
CALL  SET2D 
C 

C  ERASE  SCREEN 
5  CALL  ENTCRA 

CALL  ERASS 
CALL  EXITGR 

C  WRITE  (MDV0UT.906) 

C  SET  ORICIN 
200  X0RG= -4 . 

Y0RG=-4 . 

CALL  ENTGRA 

CALL  INIT(XORC.YORC) 

CALL  EXITCR 
IFIJJ.NE. 1 )G0  TO  100 
C  INPUr  AXES  LENCTH 
10  WRITE  (MDV0UT.900) 

READ  C  MDV I N , 800 , ERR= 1 0 )  XLN 
20  WRITE  (MDVOUT ,901) 


c  **•*•*  TWO  DIMENSIONAL  PLOTTINC  PROGRAM  **** 


READ  (MDV l N , GOO , ERR=20 )  YLN 

IF  (XLN. LE. 2.0  .OR.  XLN.CE.ll.)  XLN=5. 

IE  (YLN. LE. 2.0  .OR.  YLN.GE.ll.)  YLN=5 . 

C  SET  TITLE  COORDINATES 
XTI=0. 

YTI =  YLN+ . 3 
C  SCALE  THE  DATA 

KRITEC HDVOUT . 934 ) 

934  FORMAT (4211  ENTER  O-LI NEAR ,  I-  XLOG,  2-YLOG, 
READ  ( MDV  I II ,  935 )  ITLOG 

935  FORMAT (II) 

I F ( ITLOG. LT.0  .OR. ITL0G.GT.3) ITLOC=0 
LCY=IAND( ITLOG, 2) 

LGX= IAND( ITLOG, 1 ) 

I F ( LGX . EQ . 0 > CALL  LI NSCA (X . N ,XLN , 0 ) 

I F ( LGX .  EQ .  1  ) CALL  LOGSCA ( X , N , XLN , 0 . 

I F ( LGY . EG . 2 ) CALL  LOGSCA ( Y , N , YLN , 1 ) 

I F ( LGY . EQ . 0 ) CALL  LI NSCA ( Y , N , YLN , 1 ) 

C  REQUEST  GRID 
30  WRITE  (MDVOUT, 905) 

READ  ( MDV I N , 803 , £RR=  30 )  IGRD 
C  REQUEST  AXES  TITLES 
40  WR I TE  ( MDVOUT , 902 ) 

READ  (MDVI N , 802 , ERR=40 )  (NHOLd  )  ,  I  =  1  .20) 

C 

C  PACK  STRING  INTO  NX 
DO  90  1=1,20 

CALL  PUTCHR  (NHOL(I ) ,NX. I ) 

90  CONTINUE 
C 

C  GET  YAX  TITLE.  PACK  INTO  NY 
45  WRITE  (MDVOUT, 903) 

READ  (MDVI N ,802 , ERR=45)  ( NHOL( I ) , I = 1 ,20 > 

DO  91  1=1,20 

CALL  PUTCHR  (NHOL( I ) ,KY, I > 

91  CONTINUE 
C 

C  REQUEST  GRAF  TITLE 
50  WRITE  (MDVOUT, 904) 

READ  (MDV I N , 80 1 , ERR=  50 )  (NHOL( I ) , I  =  1 ,30 ) 

DO  92  1=1,30 

CALL  PUTCIIR  (NHOL(  I  ) ,  ITI  ,  I ) 

92  CONTINUE 
C 

C  DRAW  GRAPH 

CALL  ENTGRA 

54  CALL  INIT(XORG.YORG) 

CALL  AXPREC ( 3 ) 

55  CALL  ERASS 

I F ( LGX . EQ . 0 ) CALL  XLINAXCNX.20 .XLN) 

I F ( LGY . EQ . 0 ) CALL  YLINAX(NY,20,YLN) 

I F ( LCY . EQ . 2 ) CALL  YLOCAX ( NY , 20 , YLN ) 

I F ( LGX . EQ . 1 ) CALL  XLOGAX ( NX , 20 , XLN ) 

C 

IF  (IGRD.NE. IHG)  CO  TO  60 
C  CALL  CR I D  ( XLN , YLN , 1 . , 1 . , 4 ) 

CALL  AXGRIDd  .  ,  1  .  ,4) 

60  CALL  PLOT  (XTI.YTI.O) 

C 
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c  ****  TWO  DIMENSIONAL  PLOTTING  PROGRAM  **** 


CALL  SLTS 1 7.  (  5 ) 

CALL  TEXT ( ITI .30) 

CALL  EXITGR 
tee  CONTINUE 

CALL  ENTGRA 

CALL  DATLIN  (X.Y , N , II , 0 .700 ) 

CALL  EXITGR 
C 

C  IF  AN  R  IS  TYPED.  THEN  RESTART 

C  IF  A  P  IS  TYPED.  THEN  REPOSITION  TITLE 

C  IF  AN  M  IS  TYPED,  THEN  MOVE  ENTIRE  CRAPH 

C 

READ(MDVI H , 957 ) I NP 
957  FORMAT (A1 ) 

IF  (INP.EQ.IHR)  GO  TO  5 
IF  (INP.EQ.IHM)  GO  TO  70 
IF  (INP.NE.IHP)  RETURN 
C  GET  NEW  TITLE  POSITION 
CALL  ENTGRA 
C  I WAIT= I 

CALL  ENBDEV ( 1 . 1 . 1 , 1 . 0 ) 

CALL  GETXYI 1 . I  READY, XT! , YTI ) 

CALL  DISDEV (1,0) 

C 

C  CALL  ENTGRA 

XTI=XTI-XORG 
YTI = YTI -YORC 
GO  TO  53 

C  REPOSITION  GRAPH 
70  CALL  ENTGRA 

CALL  ENBDEV( 1,1, 1.1.0) 

CALL  GETXYI 1 . IREADY.XORG, YORC) 

CALL  D I SDEV (1,0) 

GO  TO  54 

C  FORMAT  STATEMENTS 

900  FORMAT  (49H  INPUT  2.<XAXIS  LENCTH<11.(I  DEFAULT  5.  INCHES) f  > 

901  FORMAT  (49H  INPUT  2.<YAXIS  LENGTH < 11.(1  DEFAULT  5.  INCHES):) 

902  FORMAT  (3BH  INPUT  XAXIS  TITLE  UP  TO  20  CHARACTERS . / . 2H  :) 

903  FORMAT  (38H  INPUT  YAXIS  TITLE  UP  TO  20  CHARACTERS ,/, 2H  :> 

904  FORMAT  (41H  INPUT  TITLE  OF  GRAPH  UP  TO  30  CHARACTERS ,/, 2H  :) 

903  FORMAT  (29n  IF  YOU  WANT  A  GRID  TYPE  G: ) 

906  FORMAT  (3X.24H  HELLO,  IM  GENERAL  GRAPH/24H  JUST  FILL  IN  THE  BLANKS/ 

X47H  AND  DONT  FORGET  DECIMAL  POINTS  IN  AXIS  LENGTHS/ 

X40H  ILL  WAIT  FOR  YOU  WHEN  IM  DONE  DRAWING  / 

X39H  AT  THAT  TIME  TYPE  ONE  OF  THE  FOLLOWING// 

X7H  R-RED0/17H  P-POSITION  TITLE/13H  M-MOVE  GRAPH/ 1 1 H  ELSE-OUIT//) 


BCD 

FORMAT 

(F2.0) 

301 

FORMAT 

(30A1 ) 

8(2 

FORMAT 

( 20A 1 ) 

Q)3 

FORMAT 

( A 1  ) 

END 

C 

C 

C 

C 

SUBROUTINE  QCALE  ( AMN , AMX , AXLH , I WHO ) 
COMMON  /PLT2C/ITYPE 
COMMON  / PLT2E/XHN , YHN , XMX , YMX 
C  QCALE  ACTUAL  LINEAR  SCALE  ROUT IE 
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c  ****  TWO  DIMENSIONAL  /LOTTING  PROGRAM  **** 


C  PARAMETERS  ARE : 

C  AMN  -  MIN  VAL  OF  USER  DATA 
C  Ai'IX  -  MAX  VALUE 
C  AXLH  -  SEE  ROUTINE  SCALE 
C  IVIIO  -  O-XAXIS  ELSE  Y 
C 

C  ST  IS  LIST  OF  CANONICAL  TIC  INTERVALS  THAT  CAN  BE  USED 
DIMENSION  ST ( 13) 

C  DATA  ST/1 . ,2. .2.5,4. ,5. ,8. ,10. ,20.x 

DATA  ST/1 .. 1 .25. 1 .5,2. ,2.5,3. ,3.33333,4. . 5 . , 8 . , 1 0 . , 1 5 . ,20 


STORE  MIN  AND  MAX 
ANN 1= ANN 

UP I N  = ( AMX-AMN 1 )/AXLH 
IF  (UPIN.EQ.0. )  CO  TO  11 

FIND  SCALE  MAGNITUDE 
ASNQ=ALOGl 0(UPI N ) 

N= IFIX( ASHQ) 

FACT= 10 ,**N 

IF  (UPIN.LT.l.)  FACT=FACT/ 1 0 . 

FIND  INCREMENT  LARGER  THAN  UP  IN (UNITS/ INCH) 

DO  10  K= 1 , 13 
SF=FACT*ST(K) 

IF  (SF.GE.UPIN)  GJ  TO  20 

10  CONTINUE 

GET  INTEGER  MULTIPLIER  FOR  MINIMUM 
20  N=ANN1/SF 

IF  (N.LT.O)  N=N-1 
FPN=FLOAT(N) 

IF  ( FPN*SF . GT . AMN 1 )  N*N-1 
FPN=FLOAT(N) 

VLO=FPN*SF 

30  IF  (VLO+SF*AXLH  .GE.  ( AMX-AMX* . 0001 ) )  GO  TO  40 

IF  NOT  IN  LIMITS  TRY  NEXT  SIZE 
K=K+l 

SF=ST(K)*FACT 
GO  TO  20 

11  IF  (AMN1.LT.0.)  AMTT 1  =  AMN  1  - 1  . 

N=IFIX<AHN1 ) 

VL0=FL0AT(N) 

SF=  1  . 

40  CALL  YOURSC ( SF , VLO , I WHO) 

SET  SCALE  TYPE  INTERNAL  PARAMETER 
IF(  IWIIO.EQ.0)  ITYPE*IAND(  I TYPE, 2) 

I F ( I WHO . EQ . 0 ) XMN  =  AMN 
I F ( IWHO . EQ . 0 >XMX=AMX 
IF ( I WHO . NE . 0 ) YMN= ANN 
I F ( I WHO . NE . 0 ) YMX=AMX 
IF( IWH0.NE.0)ITYPE=IAND(ITYPE,1 > 

RETURN 

END 
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c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 

COMPILE:  FTN  PL0T3D  -SPO  -64V 
LOAD:  SEG 

LO  'PL0T3D 
LO  B—PLOT3D 
LI  HCP1MV 
LI 
SA 
Q 

INSERT  SYSCOM>KEYS.F 
INSERT  SYSCOM> ERRD . F 

INTECER*2  I  FILE, I  FORM, IVAL , LOC, NXL , NYL , NZL 
INTEGERS  I TYPE, I  BIN, I  CODE, NR, NC, I , J , NRMAX , NCMAX 
I  NTEGER*2  KODE ,  L I NDR ,  MGII .  NCHNG ,  I  VAR 

R£AL*4  P ITCH, SCLE.SDI ST, SIZE, YAW, T.SCL, RANGE. S, VALUE, DH,DV 
REAL*4  XMI N , XMAX , DELT , A , AA , YMI N , YMAX, ZMI N , ZMAX . SS ,H , V , X, Y ,Z,XP 
RE\L*4  HI  ,H2,II3,H4,H5,H6,H7,H8,V1  ,  V2  ,  V3  ,  V4  .  V5  ,  V6  ,  V7  ,  V8 
DIMENSION  A( 192, 192) ,AA< 192, 192) , I  FILE! 16) . I  FORM! 40) 

DIMENSION  H C 1 0 ) , V( 1 0 ) ,  X!2 ) ,Y(2) ,Z(2) ,XP(8) 

COMMON  ANGA  .  ANGB  ,  HV ,  D ,  SH  ,  SV 
COMMON  SL , SM , SN , CX . CY , CZ , OX ,QY , QZ , SD 
COMMON/ AREA 1 /  A 
C0MM0N/AREA2/  AA 

10  CALL  TNOUA ( ’ DATA  FILE  NAME  =  ’. INTS! 17)) 

READ( 1 , 100) IFILE 

100  FORMAT! 16A2) 

101  FORMAT (21 3 , 4G1 5.8) 

CALL  SRCH8S ( I  NTS ! 1 ) , I F I LE , I NTS ! 32  > , I  NTS ! 5 ) , I TYPE , I CODE ) 

I F ( I CODE . EG . I  NTS  <  0 ) ) GO  TO  18 
WRITE! 1 , 106) IFILE 

106  FORMAT ( ’ DATA  FILE  ’.16A2) 

CALL  TNOU  ( ’  WAS  NOT  FOUND.  PLEASE  RE-ENTER  NAME. ,  I  NTS  (38) ) 

GO  TO  10 

120  WRITE! 1 . 107)IFILE 

107  FORMAT ( ’ THERE  IS  A  FORMAT  PROBLEM  WITH  ’ .16A2) 

CALL  TNOU! ’PLEASE  GIVE  A  NEW  DATA  FILE  NANCE  ’  , I  NTS  C  32 ) ) 

CALL  SRCH33! INTS(4) . INTS(O) , INTS(O) , INTSI5) , I TYPE, I  CODE) 

CO  TO  10 

18  READ!  9, 101  , ERR= 1 20 ) NR , NC , XMI N , XMAX , YMI N , YM4X 
IF(NR.LT. INTS! 1 ) .OR.NC.LT. INTS! 1 ) )GO  TO  90 
I F ( NR . EQ . I  NTS ( 1 ) . AND . NC . EQ . I  NTS ( 1 ) ) GO  TO  500 
IF!NR.GT. IN7S! 192) .OR.NC.GT. INTS! 1 92) >GO  TO  90 
READ! 9, 104)  FORM! 1 ) 

IF! I  FORM! 1 )/256.NE. ’  (  ’/256>GOTO  16 
REWIND  9 

READ! 9, 101 ) NR.NC, XMI N, XMAX, YMI N, YMAX 
RE\D (9,104)1  FORM 
104  FORMAT ( 40A2 ) 

READ! 9 . I  FORM, END* 300 , ERR= 16)! ( AA ( I , J ) , J* 1 , NC ) , I  -  1 , NR) 

GO  TO  17 

16  REWIND  9 

READ! 9, 101 )NR, NC , XMI N , XMAX , YMI N , YMAX 
READ! 9 , END* 300 ) ! ! AA! I , J ) , J* I , NC ) , I  *  1 ,NR) 

17  CALL  SRCHC3 !  I  NTS !  4  )  ,  I  NTS !  0 )  ,  I  NTS  ( 0 )  ,  I  NTS !  5 )  ,  I  TYPE ,'  I  CODE ) 

NRMAX = NR 

NCMAX* NC 

24  CALL  TNOU 1 ’ 0  FOR  LINEAR  PLOT’ .INTS! 17)) 

CALL  TNOU ( ’ 1  FOR  LOG  PLOT’  , I  NTS ( 1 4 ) ) 

CALL  TNOUA! ’LOC  *  ’,INTS(6)> 
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c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


R£AD( 1 , 1 02 , ERR  =  24  >LOG 
I F ( LOG . LT . 0 . OR . LOG . GT . 1) GO  TO  12 
DO  19  I = 1 , NR 
DO  19  J= !  , NC 
A ( I , J)=AA( I ,J) 

I F ( LOC . EQ. 0  >G0  TO  19 
I F ( A 1 1 ,J) .EO.O. ) A ( I  ,  J  )  =  1  . E-37 
A ( I , J > =AL0C10(ABS(A( I , J ) )  ) 

19  CONTINUE 

20  CALL  TNOUCO  FOR  HIDDEN  LI NES ’  , I  NTS ( 18) > 

CALL  TNOU ( ’ 1  FOR  ALL  LINES  ' .INTSC16)) 

23  CALL  TNOUAC  KODE  =  ’.INTS<7)) 

READ( 1 , 1 02 , ERR=20 1K0DE 

102  FORMAT (12) 

I F  ( KODE .  LT .  0  .  OR .  ICODE  .  CT  I)CO  TO  23 
25  CALL  TNOU ( ’ 1 -FOR  LINES  IN  X  DIRECT.  ONLY’  , I  NTS (29 > ) 

CALL  TNOU ( ’ 2-FOR  LINES  IN  Y  DIRECT.  ONLY"  , TNTS(29)> 

CALL  TNOU ( ' 3-FOR  LINES  IN  BOTH  DIRECTI ONS’  , I  NTS ( 29 ) ) 

27  CALL  TNOUA< ’Ll NDR  =  ’,INTS<8)) 

READ( 1 , 102,ERR=25)LINDR 

if(li:;dr.lt.0.or.lindr.gt.3)GO  to  27 

30  CALL  TNOUAC ' PITCH  *  ’,INTS(8>) 

READ( 1 . 1 03, ERR=30) PITCH 

103  FORMAT ( F5 . 1 ) 

I F ( ABS ( PITCH) .CT.360. )G0  TO  30 
35  CALL  TNOUA ( ’ SCALE  *  ’  , I  NTS ( 8 ) ) 

READC1  ,  103  ,  ERR=35 )SCLE 
I F ( SCLE . LT . 0 . 0 . OR . SCLE . CT . 2 . 0 ) GO  TO  35 
40  CALL  TNOUAC DISTANCE  *  ’.INTS(ll)) 

READ ( 1 . 1 03 , ERR= 40 ) SD I ST 

IFCSDIST.LT. 1 . .OR.SDIST.GT. 150. )G0  TO  40 
45  CALL  TNOUAC 'SIZE  =  ’,INTS(7>> 

READC 1 , 1 03 , ERR=45 )S I ZE 
IFCSIZE.LT. .5. OR. SIZE. GT. 12. )G0  TO  45 
50  CALL  TNOUA (’YAW  *  ’,INTS(6>) 

READC 1 , 1 03 , ERR=  50 ) YAW 
I F ( ABS ( YAW ) . GT . 360 . ) GO  TO  50 

13  CALL  TNOUCO  FOR  NO  BOX  OR  AXES’  ,  I  NTS  C  20 ) ) 

CALL  TNOU ( ' 1  FOR  REFERENCE  BOX’  , I  NTS (19)) 

CALL  TNOU ( ’ 2  FOR  BOX  AROUND  PLOT’  , I  RTS (21)) 

CALL  TNOU ( ’ 3  FOR  X,  Y  8  Z  AXES’  , 1  NTS (19)) 

CALL  TNOU C 5  FOR  LABLED  AXES  3  BOX’ ,INTS(23>) 

14  CALL  TNOUA C MCN  =  ’,INTS(6>) 

RE4D( 1 , 102, ERR  =13) MCN 

I F ( MGN . LT . 0 . OR . MGN . GT . 5 ) GO  Tc  14 
CALL  GRESET 
C 
C 
C 

55  CALL  ENTGRA 

CALL  ERSALL 
CALL  OPENVU ( 1 ) 

CALL  STTLP ( -4 . 6 , -4 . 8 ) 

CALL  STGES ( 1 ) 

CALL  CLOSVU 
CALL  EXITCR 

VRITEC 1 , 200 ) NR, NC, SD I  ST, YAW, PITCH, LINDR. KODE. SIZE, SCLE, LOC. MGN 
200  FORMAT ( ’  AN  ARRAY  OF  ’,13.’  BY  ’,13,’  IS  DRAWN’ ✓ 


u  c  u 


C  ***  TVO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


1  • 

DISTANCE1 ’ 

, F6 . 1/' 

YAW 

=• , F6 . 1/' 

PITCH 

2 ' 

L1NDR 

,13/' 

KODE 

=’ .13/’ 

SIZE 

3’ 

SCALE 

.F6.2/' 

LOG 

=  *  ,  Vsi/' 

HGN 

CALL  ENTCRA 
CALL  DSP  I CT( 1 ) 

CALL  OPNV ( 1,1) 

CALL  SLTRZf INTS(0) ) 

DO  56  1=1,2 
X(I )=0.0 
Y ( l ) =0 . 0 
Z< I ) =0 . 0 
H ( I ) =0 .0 
V  (  I  )  =  0 . 6 
XP( I )=0.0 

56  CONTINUE 

DO  57  1=3,8 

xp< ;  *=o.o 

H ( I ) =0 . 0 
V< I >=0.0 

57  CONTINUE 

DO  58  1=9,10 
H ( I ) =0 . 0 
V ( I ) =0 .0 

58  CONTINUE 
C 

ANGA= (YAW+270 . 1*0.0174532 
ANGB= P I TCH*0 . 0 1 74532 
HV  =  S I ZE 

C  DIRECTION  COMPONENTS  OF  THE  EYE 

SL= -COS ( ANGA ) *COS ( ANGB ) 

SM= -S I N ( ANGA ) *COS ( ANGB ) 

SN=-S IN( ANGB) 

C 

I F ( ADS ( SN ) . EQ . 1 . 0 ) CO  TO  11 
C 

SD= 1 . 0/SQRT ( 1 . -SN*SN ) 

X(1  )  =  1 
X(2)=NR 
Y( 1  )  =  1 
YC  2 ) =NC 
T=MAXO ( NR , NC ) 

C  FIND  THE  DIACONAL  OF  THE  CUBE 
D=NC**2+NR**2+T**2 
D=SQnT(D) 

SCL=SDIST*D 

C  FIND  COORDINATES  OF  YOUR  EYE 
CX=-SL*SCL 

cy=-si;~scl 

CZ=-SN*SCL 

C  COORDINATES  OF  THE  PROJECTION  PLANE 
OX=CX+D*SL 
QY=CY+D*SM 
QZ=CZ+D*SN 

C  FIND  MAX  AND  MIN  OF  A 

CALL  TIIRE 1  ( A  ,  NR ,  NC  ,  Z ,  KODE ) 

ZMIN=Z( 1 ) 


c  **X  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


ZHAX=Z(2)/SCLE 
RANGE =  (Z(2  )-Z(  1  )  ) 

S  =  1  . 

IFCSCLE.NE.O. )S=T/RANCE*SCLE 

ss=s 

C  SCALE  THE  SURFACE  TO  HAKE  A  CUBE 

DO  31  1=1 .NR 
DO  31  J=1 , NC 
A( I , J)= (A( I , J)-Z< 1 ) )*S 
31  CONTINUE 

Z( 1 )=0.0 
Z(2)=T 
C 

2000  CALL  THRE2 ( X , Y , Z , XP , H , V , KODE ) 

C 

DO  2130  1  =  1  ,8 

H ( I )=( (XP( I ) -QX)*SM- (H ( I ) -QY)*SL)*SD 
V ( I ) = ( V ( I )-QZ)*SD 
2130  CONTINUE 
C 

2100  CALL  THREl <H,8, 1 ,H(9) ,KODE) 

2021  CALL  THREl (V, 8, 1 ,V(9) , KODE) 

C 

I F ( NGN . EG . I  NTS ( 0 ) ) GO  TO  2140 
S=HV 

I F  ( PIGN .  EQ .  I  NTS  ( 1  )  )  S=  1 . 5 
C 

CALL  SL I NT ( I NTS ( 6 ) ) 

CALL  SLLTYP ( I NTS ( 4 ) ) 

C 

SH  =  S/' CH(  10) -H (9)  ) 

SV=S/(V( 1 0 ) -V ( 9 ) ) 

SH=S I GN ( AMI N 1 (SH.SV) ,SH) 

SV = S I GN ( SH , SV ) 

HI  =  CH(l)-II<9))*SH 
H2= (H (2 ) -H  C  9 ) )*SH 
H3=  (II ( 3 ) -H (  9  )  ) *SH 
H4= (n ( 4 ) -H ( 9 ) ) *SH 
H5= (H ( 5 ) -H ( 9 ) )*SH 
H6=  C II C  6 )  -II  (  9  )  )  *SH 
H7= (H ( 7 ) -H ( 9 ) ) *SH 
H8= (H ( 0 ) -H ( 9 ) ) *SH 
VI  =  CV( 1 )-V(9) )*SV 
V2= ( V ( 2 ) -V( 9 ) )*SV 
V3= ( V( 3 ) -V( 9 ) )*SV 
V4= ( V ( 4 ) -V ( 9 ) )*SV 
V5= ( V ( 5 ) -V ( 9 ) )*SV 
V6= ( V ( 6 ) -V( 9 ) )*SV 
V7  = ( V ( 7 ) -V ( 9 )  )*SV 
V8= C V ( 8 ) -V ( 9 ) )*SV 
IFCNGN.EQ. I  NTS ( 1 ) )CALL  MOVE(0. ,2. ) 


c  xxx  TWO  DIMENSIONAL  SURFACE  P LOTT INC  PROGRAM  xxx 


C 

C 

C 

c 

c 

c 


123 

126 

127 

21  28 


CALL  SYMBOL ( H 1 , VI ,0. 14. 'O’ ,0. . 1 ) 

CALL  SYMBOL  ( II 1  .  V3 , 0 . 1 4  .  ’  M1  , 0  .  .  1  ) 

CALL  SYMBOL ( H2 , V2 . 0 . 1 4 ,  ’  Z’  , 0 .  .  1  ) 

CALL  SYMBOL  ( 115  .  V5 . 0 . 1 4 . '  N*  ,  0  .  .  1  ) 

CALL  MOVE( .03, .05) 

CALL  MOVECHl ,Vl ) 

CALL  DRAW ( H2 , V2 ) 

CALL  M0VECH3.V3) 

CALL  DRAW (HI, VI) 

CALL  DRAW (H 5. Vo) 

I F ( MGN .  EQ .  I  NTS ( 3 ) ) GO  TO  2139 

I F ( NGN . EQ . I  NTS ( 1 ) . OR . MGN .  EQ .  I  NTS ( 2 ) ) GO  TO  2138 
PUT  TICK  MARKS  AND  DIMENSIONS  ON  AXES 
NXL= IFIX(SIZE*NR/T) 

IFCNXL.LT. 1 )  NXL  = 1 
NYL=  IFIX(SI7.E*NC/T) 

IFCNYL.LT.  1  )NYL=1 
NZL  = IFIX(SIZE) 

I F ( NZL . LT . 1 ) NZL= 1 
DH  = (H2-H1 ) /NZL 
DV  = ( V2-V 1 )/NZL 
CALL  MOVE ( H 1 - . 4 , V 1 ) 

CALL  NUMBRQ ( ZM I N , 3 , 2 ) 

CALL  M0VECH1 - . 08 , VI ) 

CALL  DRAW (HI , V 1 ) 

DO  125  1=1. NZL 
CALL  RMOVE ( DH- . 08 , DV ) 

CALL  RDRAW( .08,0. ) 

CONTINUE 

CALL  RMOVE (-.4,0. ) 

CALL  NUMBRQ  ( ZMAX  ,3,2) 

DH  = (H3-H1 )/NYL 
DV  = ( V3-V1 )/NYL 
CALL  II0VE(H1  -  .  25  ,  VI  -  . 2 ) 

CALL  NUMBRQ (YM IN, 3, 2) 

CALL  MOVE (HI .V1-.08) 

CALL  DRAW (HI , V 1 ) 

DO  126  1=1 , NYL 
CALL  RMOVE ( DH , DV- . 08 ) 

CALL  RDRAW ( 0 . , .08) 

CONTINUE 

CALL  RMOVE ( - . 25 , - . 2 ) 

CALL  NUMBRQ ( YNA  X . 3 , 2 ) 

DII=  (H5-ni  )/NXL 
DV= (V5-V1 )/NXL 
CALL  MOVE (H1-.25.V1-.31 ) 

CALL  NUMBRQ(XMI N , 3 . 2 ) 

CALL  MOVECHl ,Vl ) 

DO  127  1=1, NXL 
CALL  RMOVE  (  DH  ,  DV-  .  08 ) 

CALL  RDRAW ( 0 . , .08) 

CONTINUE 

CALL  RMOVE ( - . 23 , - . 31  ) 

CALL  NUMBRQ ( XMAX .3,2) 

I F ( MGN . NE . I  NTS ( 5 ) ) GO  TO  2139 
CALL  MOVE (H7 , V7 ) 

CALL  DRAW (HO , V8 ) 

CALL  DRAW ( H4 , V4 ) 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


CALL  DRAW(H2,V2) 

CALL  DRAW ( 116  ,  V6 ) 

CALL  DRAW  ( 115,  V5) 

CALL  DRAW ( 117  ,  V7  ) 

CALL  DRAW ( HO , V3 ) 

CALL  DRAW ( 114  .  V4 ) 

CALL  MOVE (HO  V8) 

CALL  DRAW (116,  V6) 

C 

2139  I T ( MON .  NE .  I  NTS ( 1 ) ) CO  TO  2140 

CALL  IIOVE(AINT(  (H(  10)-H(9)  )*SH+2.  )  ,-2.05) 

C 

2140  CALL  SLI NT( I  NTS ( 9 ) ) 

CALL  SLLTYP ( I  NTS ( 1 ) ) 

CALL  THRE3 (X.Y,A,NR,NC,R,V,LI NDR , KODE ) 

C 

2150  CONTINUE 

CALL  CLOSP 
C 
C 
C 

CALL  EXITGR 

62  CALL  TNOU ( ’  DO  YOU  WANT  A  HARJ)  COPY?’ . INTS (28) ) 

CALL  TNOU ( '  0  FOR  NO  8  1  FOR  YES’ ,INTS(24>> 

61  CALL  TNOUA  <  *  HARD  COPY  =  ’.INTSC16)) 

READ( 1 . 101 , ERR=  6 1 )J 

I F ( J . LT . INTS (0 ) . OR. J . GT . I  NTS ( 1 ) )G0  TO  62 
I F ( J . EQ . I NTS C  0 ) ) GO  TO  60 
CALL  ENTGRA 
CALL  HDCOPY(I) 

CALL  EXITGR 

60  CALL  TNOUA ( '  NO.  OF  CHANGES  DESIRED  =  ’,INTS<29>> 

R£AD( 1 , 1 02 . ERR=  60 ) NCHNG 
I F ( NCHNG . EQ . 0 ) CALL  EXIT 
C 
C 
C 

DO  80  1*1,  NCHNG 

CALL  TNOU (’KODE  IVAR=0 ’  , I  NTS ( 1 5 ) ) 

65  CALL  TNOU  CNR  I VAR= 1 ’  , I  NTS ( 1 5 ) ) 

CALL  TNOU CNC  IVAR=2’ , INTS( 1 5) ) 

CALL  TNOUC DISTANCE  I VAR=3 ’  , I  NTS ( 1 5 ) ) 

CALL  TNOUC PITCH  I VAR=4’  , I  NTS ( 1 5 > > 

CALL  TNOUC  LINDR  I VAR= 5’  , I  NTS ( 1 5 ) > 

CALL  TNOUC  YAW  I VAR= 6’  , I  NTS C 1 5 ) ) 

CALL  TNOUC SCALE  !VAR=7’ , INTS( 15) ) 

CALL  TNOUC SIZE  !VAR=8' ,INTS(15)) 

CALL  TNOUC NEW  FILE  I VAR= 9’  , I  NTS ( 1 5 ) ) 

CALL  TNOU ( ' LOG  1 VAR= 1 0 ’  , I  NTS (16)) 

CALL  TNOUC MCN  IVAR= 11’, INTS< 16) ) 

89  CALL  TNOUA C I VAR  *  ’,INTS<7)> 

READ(1 , 105 , ERR=  65 ) I VAR 
105  FORMAT! 12) 

CALL  TNOUC ENTER  99  FOR  INTECER  VARIABLES  OR’  , I  NTS ( 33 ) ) 
CALL  TNOUC 999.  FOR  REAL  VARIABLES  WHOSE  VALUES’ , I N^S ( 36 ) ) 
CALL  TNOU  CARE  TO  BE  LEFT  UNCHANGED.’  ,  I  NTS  (23)) 

I F ( I  VAR . EQ . 0 )G0  TO  75 

GO  TO  (66,67.68,69,70,71 ,72. 73, 74, 78.79), IVAR 

66  CALL  TNOUA ('NR  =  ’.INTS(5)) 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


READ! 1.101 , ERR=66 ) I VAL 
I F ( I VAL. Eft. 99)00  TO  89 
NR= I VAL 

I F  ( m .  GT .  NRT1AX )  GO  TO  66 
GO  TO  80 

67  CALL  TNOUA< ’ NC  =  ’.INTS(5)> 

READ! 1 , 101 , ERR=67) I VAL 

IF! I VAL . EQ . 99 ) GO  TO  89 
NC  = I VAL 

I F ( NC . GT . NCMAX ) CO  TO  67 
CO  TO  CO 

68  CALL  TNOU  A  CD  I  STANCE  =  ’.INTSlll)) 

READ( 1 . 1 03 , ERR=  68 ) VALUE 

I F ( VALUE . EQ . 999 . ) GO  TO  89 
SDIST=VALUE 

IFISDIST.LT. 1 .0.OR.SDIST.CT. 150. )C0  TO  68 
CO  TO  80 

69  CALL  TNOUA  CP  ITCH  =  *,INTS(8>> 

READ! 1 , 1 03 , ERR= 69 ) VALUE 

I F ( VALUE . EQ . 999 . ) GO  TO  89 
P ITCH=VALUE 

I F 1 ABS 1  PITCH) . GT . 360 . )G0  TO  69 
GO  TO  80 

70  CALL  TNOUA ( ’ LINDR  =  ’,8) 

READ! 1 , 101 ,ERR=70 ) IYAL 

I F ( I VAL . EQ . 99 ) GO  TO  89 
LINDR= I VAL 

IFILINDR.LT. 1 .OR. LINDR. GT.3)G0  TO  70 
GO  TO  80 

71  CALL  TNOUA CYAV  *  ’.INTS16)) 

READ! 1 , 103,ERR=7l ) VALUE 
IF1VALUE.EQ.999. )GO  TO  89 
YAW=VALUE 

I F 1 ABS (YAW) . GT . 360 . )G0  TO  71 
GO  TO  80 

72  CALL  TNOUA (‘SCALE  =  ’.INTS18)) 

READ! 1 , 1 03 . ERR= 72 ) VALUE 
IF1VALUE.EQ.999. )G0  TO  89 
SCLE=VALUE 

IFISCLE.LT. 0.0. OR. SCLE.GT. 2. 0)GO  TO  72 
CO  TO  80 

73  CALL  TNOUA! ‘SIZE  =  ’,INTS(7C 
READ (1,103, ERR= 73 ) VALUE 

I F 1 VALUE . EQ . 999 . )G0  TO  89 
SIZE=VALUE 

IFISIZE.LT. .5. OR. SIZE. GT. 12. )G0  TO  73 
CO  TO  80 

74  CALL  TNOUA (’NEW  FILE  NAME  =  ’.I NTS! 16)) 

READ! 1 , 1 00 , ERR=74 ) I  FI LE 

CALL  SRCHOS 1  I  NTS  1 1 ) , I  FI LE , I  NTS  1 32 ) . I  NTS (5 ) . ITYPE, ICODE) 

I F 1  I  CODE . EQ . 0 ) GO  TO  28 
WRITE! 1 , 106) IFILE 

CALL  TNOU ('WAS  NOT  FOUND.  PLEASE  RE-ENTER  NAME . ’  , I  NTS (38) ) 
GO  TO  74 

121  WRITE! 1 . 107) IFILE 

CALL  TNOU 1 ’ PLEASE  GIVE  A  NEW  DATA  FILE  NAME’ . INTSC32) ) 

CALL  SRCHOS 1 INTS14) , IHTS(O) , INTS10) , INTS15) . I TYPE, I  CODE) 

CO  TO  74 

READ!  9 , 101  .  ERIl=  121  ) NR ,  NC  , XMI N  , XMAX ,  YMI N  ,  YMAX 


23 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


a 


*s 


1 


1 F ( NR . CT . I  NTS ( 1 92 ) . OR . NC . GT . I  NTS ( 1 92 ) ) CO  TO  90 
I F ( NR . LT . I  UTS ( 1 ) . OR . NC . LT . I  NTS ( 1) ) GO  TO  90 
I F ( NR . EG . I  NTS ( 1 ) . AND . NC . £Q . I  NTS ( 1 ) ) GO  TO  500 
RF.AD  (9,104)1  FORM  (  1  ) 

I F ( I  FORTH  1 )/256.NE. ’  (  ’/256)GOTO  15 
REWIND  9 

READ ( 9 . 1 0 1 ) NR , NC , XMI N , XMAX , YMI N , YMAX 
READ (9,104)1  FORM 

READ! 9, I FORM , END- 300 , ERR= 1 6 ) ( ! A! I . J ) . J= 1 , NC ) . I = 1 , NR) 

GO  TO  76 
15  REWIND  9 

READI9, 101 ) NR, NC.XMIN, XMAX, YMIN, YMAX 
READ C  9 , END=300 ) ( ( A( I , J ) , J  = 1 , NC ) . I  =  1 , NR) 

76  CALL  SRCHSS  ( I  NTS  ( 4 )  ,  I  NTS  ( 0 )  ,  I  NTS  ( 0 )  ,  I  NTS  ( 5 )  ,  I  TYPE I  CODE ) 
NRNAX-NR 
NCMAX=  NC 
GO  TO  eo 

75  CALL  TNOUA ( ’ KODE  =  ’,INTS(6)) 

READ( 1 , 1 02 , ERR=75 ) I VAL 
I F ( IVAL.EQ.99)G0  TO  89 
IF! IVAL.LT.O.OR. IVAL.CT. I )C0  TO  75 
KODE= I VAL 
GO  TO  80 

78  CALL  TNOUA  ( ’  LOG  =  ’  ,  I  TITS  (6)) 

READ! 1 , 102, ERR=  78)1 VAL 

I F ( I VAL . EQ . 99 ) GO  TO  89 

IF( IVAL.LT.O.OR. IVAL.CT. DCO  TO  78 

LOG=IVAL 

GO  TO  80 

79  CALL  TNOUAC’MGN  r  ’ , INTS<6)> 

READ ( 1 , 1 02 , ERR=79 ) I VAL 

IF( IVAL.EO. 99) GO  TO  89 
IF( IVAL.LT.O.OR. IVAL.GT.5)G0  TO  79 
MGN= I VAL 
GO  TO  80 

80  CONTINUE 

DO  129  1=1 ,NR 
DO  129  J=1 , NC 
A( I , J)=AA( I , J) 

I F  C  LOG .  EQ. .  0 )  CO  TO  129  * 

IF(A( I ,J) . EQ . 0 . )A(I ,J)=1 . E-3" 

A( I , J)=ALOG10(ABS(A( I ,J) ) ) 

129  CONTINUE 

CO  TO  55 
C 
C 

C  ERROR  MESSACES  S  ABNORMAL  EXIT 

C 

90  WRITE! 1 ,206)NR.NC 

206  FORMAT! ’ ONE  OF  THE  SUBSCRIPTS  IS  OUT  OF  RANGE’/ 

*’ NC  =  ’ , 13,  ’  AND  NR  =  ’ , 13) 

GO  TO  207 
C 
C 

11  CALL  EXITGR 

WRITE! 1 ,21 ) 

21  FORMAT! 20X, 20 !'*'),//,' ATTEMPTED  VERTICAL  VIEW.  ERROR.’) 

GO  TO  208 
C 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


C 

300  WRITE! 1 ,400)NR,NC 

400  FORMAT ( ' ONE  OF  THE  SUBSCRIPTS  IS  TOO  LARGE  FOR  THE  DATA  SET 
S ' THE  VALUE  OF  NR  IS  1 .13,*  AND  THE  VALUE  OF  NC  IS  • ,13) 

GO  TO  207 
C 
C 

500  WRITE! 1,401) 

401  FORMATCONLY  ONE  POINT  HAS  BEEN  SPECIFIED  THIS  IL' 

S ' UNREASONABLE ,  NC  = 1 ,  AND  NR  = 1  *  ) 

207  CALL  SRCII3S  (  I  NTS  (4  )  ,  I  NTS  ( 0  )  .  I  NTS  ( 0 )  ,  I  NTS  (  5 )  ,  I  NTS  ( 0 )  ,  I  CODE ) 

208  CALL  EXIT 
END 

C 

C 

c 

c 

c 

SUBROUTINE  THRE 1 ( A , N , M , Z , KODE ) 

C 

c 

DIMENSION  Z ( 2 ) ,  A(192,192) 

I NTEGER*2  N.M.KODE 
I NTEGER*2  I , J 
REAL*4  A,Z 
C 

C  FIND  THE  MAX  AND  MIN  OF  A 
C 

Z(l)=A(l,l) 

Z(2) =  Z< 1 ) 

DO  1190  J=1  ,M 
DO  1100  I = 1 , N 
Z(  1  )  =AMI N1  <Z(1),A(I,J>) 

Z(2) =AMAX1 ( Z ( 2 ) , A ( I , J) ) 

1160  CONTINUE 
1190  CONTINUE 
C 

RETURN 

END 

C 

C 

C 

C 

SUBROUTINE  THRE2 (X,Y,Z,XP,H,V, KODE ) 

C 

C 

C  FIND  CORNERS  OF  ROTATED  CUBE 

C 

DIMENSION  X< 1 ) ,Y< 1 ) ,Z( 1 ) ,H( 1 ) ,V( 1 ) ,XP(1 ) 

REAL* 4  X,Y,Z,H,V ,XP 
INTEGER*2  I.J.K.L 
C 

50  L=0 

70  DO  180  1=1,2 

90  DO  170  J=1 ,2 

1 1©  DO  160  K= 1 ,2 

130  L=L+ 1 

140  CALL  TERE4(X(  I  )  ,Y(  J)  ,Z(K)  ,XP(L)  ,H(L)  ,V!L)  .KODE) 

iea  continue 


nno  nnn  on  noon  n  nnno  nnnn 


C  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


l TO  CONTINUE 
ISO  CONTINUE 
C 

190  RETURN 
END 


SUBROUTINE  THRE4 (X,Y,Z,XP,YP,ZP, KODE ) 


FIND  THE  LOCATION  OF  A  POINT  IN  THE  ROTATED  CUBE. 

COMMON  ANGA , ANGB , HV , D , SH , SV 
COMMON  SL.SM.SN.CX.CY.CZ.QX, QY.QZ.SD 

R£AL*4  ANGA , ANCB ,HV , D , SH , SV . SL , SM, SN ,CX , CY , CZ  ,QY~,QZ  ,SD 
REAL*4  X.Y.Z.XP.YP.ZP 
REAL*4  SK 
INTEGER* 2  KODE 

SK=D/< (X-CX)*SL  +  (Y-CY)*SM  +  (Z-CZ)*SN) 

XP=CX+SK*(X-CX) 

YP=CX+SK*(Y-CY) 

ZP=CX+SK*(Z-CZ) 

RETURN 

END 


SUBROUTINE  THRE3(X, Y.A ,N ,M,H , V .K.KODE) 


COMMON  ANGA, ANGB, HV.D.SH.SV 
COMMON  SL.SM, SN.CX.CY.CZ, OX, QY.QZ.SD 

REAL*4  ANCA , ANGB , HV , D , SH , SV , SL , SM , SN . CX . CY , CZ , QX, QY , SD 
REAL*4  X , Y , A , H , V , END 
REAL* 4  XI  ,DI  .TO.T.ZP.XP.HH.W.DD.YJ 
I NTEGER*2  MM , NN , L , LD , J , I , LI  I , L22 
DIMENSION  X< 10) ,Y( 10) ,H( 10) ,V(10) ,A(192,I92) 

INTEGER  P.Q.Pl ,P0 
INTEGERS  UP. DOWN, PEN 

DRAW  THE  FIGURE 

END =1 ./128. 

USE  1/02  OR  1/64  FOR  FINER  INTERPOLATION. 

UP= I  NTS (3 1 
DOWN -  I  NTS <  2 ) 

SH=HV/(H( 1 0 )  -H  ( 9 ) ) 

SV=ITV/(V(  10)-V<9>  ) 

Sn=SIGN(AMINl (SH.SV)  ,SH) 

SV  =  S  I GN  ( SH ,  SV ) 

M?I=M 

NN=H 


C 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


80  IFIK-I ) 100 , 120. 100 
C 

100  IF(K-3) 1 1 10, 120, 1 1 10 

C 

C  DRAW  LINES  ALONG  THE  Y  AXIS 
C 

120  CONTINUE 
C 

L  =  0 
LD=  1 

DD=0.5*LD 

C 

140  DO  1060  J=1 ,M 
0=0 
YJ  =  J 

160  DO  1030  1=1 ,NN 
L=L+LD 
C 

XI  =L 

CALL  THRE5 ( A , XI , YJ , N , M , P , KODEJ 
PEN=UP 

I F(P 1510,520, 530 
5 1 0  CONT I NUE 

IF (0)540, 550, 540 
520  CONTINUE 

IF(Q)610, 1020,610 

539  CONTINUE 

IF  CO) 540, 550,540 

540  CONTINUE 
C 

PEN=DOWN 
GO  TO  170 
C 

559  CONTINUE 

I F ( I .EO. 1 )G0  TO  17t 

DI=DD 

TO=L-LD 

T=TO+DI 

P1=Q 

560  I F ( ABS ( D I ) . LT . END ) GO  TO  570 
CALL  THRE5 ( A ,T , YJ , N ,M , PO , KODE) 

DI=DI*0.5 

IF(PO.EQ.O)CO  TO  565 
TO=T 

pi=ro 

T=T-DI 
CO  TO  560 
565  T=T+DI 

GO  TO  560 
570  CONTINUE 
T=T0 

IF<Pl*P) 170, 170,580 
539  CONTINUE 
509  CONTINUE 
LI 1=L-LD 

7P  =  A ( LI  1 , J)  +  <T-L+LD)*<A<L.J)-A(L11 ,J) )/LD 
CALL  T1IRE4  ( T ,  YJ  ,  ZP  ,  XP  ,  ItH  ,  W  ,  KODE ) 
mi=  (  ( XP-QX)  *SM-  (IIH-QY ) *SL )  *SD 
VV= (VY-QZ)*SD 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


Hn=(HII-R<0)  )*SH 
VV=  (V^V-VIO)  )*SV 

I F( PEN. EO. DOWN) CALL  DRAW ( HH , W ) 

IF(  PEN.  EQ.UP)  CALL  NOVE(HH.W) 

C 

60'’  PEN=  I  NTS  (  5 )  -PEN 

CO  TO  170 
C 

610  CONTINUE 
PEN=DOVN 
Di=nn 
TO=L-LD 
T=TO+DI 
P1=0 

620  I F ( ABS ( D l ) . LT . END ) CO  TO  630 

CALL  THRE5 ( A , T , Y J , N , M , PO , KODE ) 

DI =  DI*0 . 5 

I F ( PO . EO . 0 ) CO  TO  625 
TO=T 
Pl=PO 
T=T+DI 
CO  TO  620 
C 

625  T=T-DI 

GO  TO  620 
C 

630  CONTINUE 
T=TO 

I F (Pl*ft)6O0 , 600 , 590  > 

170  CALL  THRE41XI , YJ ,A(L ,J ) ,XP ,HH , W ,KODE) 
W=(W-QZ)*SD 

HH= ( (XP-QX)*SM-<HH-OY)*SL)*SD 
190  HH=  (IIH-H<9)  )*SH 
200  W=  ( W-V  C  9 )  )  *SV 

I F ( PEN . EO . DOWN ) CALL  DRAW ( HH ,  \H' ) 

I F  ( PEN  .  EQ .  UP  )  CALL  MOVE(HH.W) 

1020  Q=P 
1030  CONTINUE 
C 

L=L+LD 

LD=-LD 

DD=-DD 

1060  CONTINUE 
C 

1 090  IF(K-3)2060, 1110, 2060 

C 

C  DRAW  LINES  ALONC  X  AXIS... 

C 

1110  CONTINUE 
C 

L=0 
LD=  1 

DD=0 . 5*LD 

1140  DO  2040  I = 1 , N 
XI  5  I 
0=0 

1160  DO  2020  J=1 ,MM 
L=L+LD 


c  ***  TWO  DIMENSIONAL  SURE ACE  PLOTTING  PROCRAM  *** 


1310 
1  320 
1  530 
1540 
C 


1530 


1560 


C 

1565 

C 

1570 


1530 
1  500 


C 

1600 

C 

1610 


1620 


CALL  THRE5 ( A , XI , YJ , N ,M, P , KODE ) 
PKN=UP 

IF(P) 1510, 1520, 1530 
1 F  CO) 1540, 1550, 1540 
IF(Q) 1610,2010. 1610 
IF (ft) 1540, 1550, 1540 
CONTINUE 

PEN=DOVN 
CO  TO  1 170 
CONTINUE 

I F ( J . Eft . 1 ) CO  TO  1170 
DI=DD 
TO=L-LD 
T=TO+DI 
PI  =G 

I F  C  ADS ( D I ) . LT . END ) GO  TO  1570 
CALL  THRE5CA.XI ,T , N , M , PO , KODE ) 

DI =DI*0 . 5 

I F ( PO . Eft . 0 ) CO  TO  1565 

TO  =  T 

PI  =P0 

T=T-DI 

CO  TO  1560 

T=T+DI 
CO  TO  1560 

CONTINUE 

T=TO 

IF(P1*P) 1 170, 1 170, 1580 

CONTINUE 

CONTINUE 

L22=L-LD 

ZP-A C I , L22 ) +  (T-L+LD)*(A( I ,L)  -  A( 
CALL  THRE4CXI  ,T,ZP  ,XP  ,HH  ,  W.KODE) 
HR= ( (XP-ftX;*SN  -  (HH  -  QY)*SL)*SD 
VV=(VV-QZ/*SD 
HH= (HH-H  C  9 ) )*SH 
W=  (VV-VC  9  )  )*SV 

I F  ( PEN  .  Eft .  DOW )  CALL  DRAW  ( HH ,  W ) 

I F  ( PEN  .  Eft .  UP  )  CALL  MOVE(HH,W> 

PEN1 1  NTS ( 5 ) -PEN 
GO  TO  1 170 

CONTINUE 

PEN=DOWN 

DI=DD 

TO=L-LD 

T=TO+DI 

Pl=ft 

IFCADSCDI ) ,LT.END)GO  TO  1630 
CALL  THRE5CA.XI ,T , N ,M , PO . KODE) 
DI=DI*0.5 

I  F  (  PO .  F.Q .  0  )C0  TO  1  525 
TO=T 
PI  =P0 
T=T+DI 


,L22) )/LD 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


GO  TO  1620 
1 6?5  T=T-DI 

CO  TO  1620 
1 630  CONTINUE 
T-TO 

IF(Pl*Q) 1600, 1600,1590 

1170  CALL  THRE4(XI  ,YJ  ,A(  I  ,L)  ,XP  .HH.W.KODE) 

FIil  =  (  (XP-QX)*SM-(1III-QY)*SL)*SD 
VV=  (W-QZ)*SD 
1100  HH  =  (HTI-H(9)  )*SH 
1190  VV= <VV-V<9) )*SV 

I F( PEN. EQ. DOUN) CALL  DRAW ( HH , W ' 

I F  ( PEN  .  EQ.  UP  )CALL  MOVE(HH.W) 

2010  Q=P 
2C20  CONTINUE 
C 

L=L+LD 
LD=-LD 
DD= -DD 

2C40  CONTINUE 
C 

2050  CONTINUE 
C 

2C20  RETURN 
END 
C 
C 
C 
C 

SUBROUTINE  THRE5(Z,XI , YJ,M.N,P,KOD£> 

C 

C 

COMMON  ANGA , ANCB , HV , D , SH , SV 
COMMON  SL . SM , SN , CX , CY , CZ , OX . QY , QZ , SD 

REAL*4  ANGA, ANGB ,HV , D , SH , SV , SL . SM, SN , CX.CY.CZ. OX, QY.QZ.SD 
REAL*4  Z.XI.YJ 

REAL*4  ZB , XEND , DX , YMULT , ZMULT , YEND , DY , XMULT , XB , YB , XSTEP , YSTEP 
F  5AL*4  ZS.SGN 

INTEGFR*2  M , N , KODE , IR , JC , I DX . JDY 
INTEGER  CUM.CNT.P 
REAL  I , J , I  I . J J 
DIMENSION  Z( 192, 192) 

C 

C  SEE  IF  A  POINT  IS  VISIBLE 
C 

IFIKODE.EQ. 1 >C0  TO  78 
I  R=XI 
JC  =  YJ 

ZB  =  Z( IR, JC) 

I F (XI .EQ. IR)GO  TO  2 

ZE=Z( IR, JC)+(XI-IR)*(Z(IR+1 .JC)-Z(IR.JC)) 

CO  TO  4 
C 

2  I F (YJ . EQ . JC )G0  TO  4 

ZB  =  Z< IR,JC)+(YJ-JC)*(Z( IR. JC+1 )-Z( IR, JC) ) 

4  CONTINUE 

XEND=0. 

DX-Q  . 

YMULT =0 . 


vv  \ 


;■  -  V*-  . 


c  ***  TWO  DIMENSIONAL  SURFACE  PLOTTING  PROGRAM  *** 


10 


C 

30 


C 

AO 


43 


C 

C 


C 

50 


k<  Lj 


ZNULT=0. 

I  F  ( X I  ,r.0.CX)G0  TO  10 
YIIULT  =  ( YJ-CY )  /  ( XI  -CX) 
ZMULT= ( ZB-CZ ) ✓ ( XI -CX ) 
DX=  1  . 

XEND=M+1 


10 


I F (XI . LT . CX ) GO  TO 
DX=-1 . 

XEND=0 . 

CONTINUE 
YF,ND=0 . 

DY  =  0  . 

XI  IULT  =  0  . 

IFCYJ .Ea.CYlGO  TO  20 


XMULT= (XI -CX)/( YJ-CY) 

I F ( ZNULT . EQ . 0 . )  ZMULT= ( ZB-CZ )/ (YJ-CY) 
DYr  1  . 

YEND-N+ 1 

I F ( YJ . LT . CY )G0  TO  20 


DY=-1 . 
YEND=0 . 


CONTINUE 
CUM=0 
CNT  =  0 
P  =  0 
XB-XI 
YB=YJ 


CONTINUE 
I  I  =  AI NT (X" 
JJ=AINT(Yb, 
XSTEP  * DX 
YSTEP=DY 


IF(XB.EQ. I  I )G0  TO  40 
! F ( DX . LT . 0 . )  XSTEP =0 . 
GO  TO  45 


I F ( YB . EQ . J J ) GO  TO  45 
I F ( DY . LT . 0 . )  YSTEP=0 . 
CONTINUE 
I  =  I  I + XSTEP 
J1 J J+YSTEP 

I F ( I . EQ . XFND ) CO  TO  80 
IF( J .EQ.YENDIGO  TO  80 


XB=CX+XMULT* ( J-CY ' 
YB=CY+YNULT* ( I-CX) 


I F ( DX . LT . 0 . ICO  TO  55 
I F ( XB . LT . I  ICO  TO  60 


XE-I 

CO  TO  65 


***  TWO  DIMENSIONAL  SURFACE  PLOTTINC  PROGRAM  *** 


I F ( XB . LT . I >CO  TO  50 
YT!  =  J 

CONT I NUE 

ZB^CZ+ZMULT* (XB-CX. 

I R-  I 
JC  =  J 

1F(YB.NE. J)CO  TO  7C 
IDX= I-DX 

ZS-ZI IR, JC)-DX*(XB-I )*<Z(IDX, JC)  -  Z(IR,JC)) 
GO  TO  75 

JDY= J-DY 

ZS  =  Z(  IR,  JC>-DY*  <YB"J >*<Z< IR,  JDY)  -  Z(IR,JC)) 

CONTINUE 
SGN- 1 . 

IF(ZB.LT.ZS)  SGN  *  - 1  . 

CUM- CUT1+  I  NT  ( SGN  ) 

CNT  =  CNT  + 1 

I F ( I ABS(CUM) . EQ . CNT)GO  TO  30 
GO  TO  90 


P=1 

GO  TO  95 

CONTINUE 

P=1 

IF(CUM)  84,86,90 
P  =  -l 

GO  TO  90 
CONTINUE 

IF(ZB.LE.CZ)GO  TO  90 
P=-l 

CONTINUE 


RETURN 
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7 . 9  Example  Dereverbe rating  a  Lamb  Wave  Convolved  with  a  Resonant 
Sensor 


7.9  Example  Dereverberating  a  Lamb  Wave  Convolved  With  a  Resonant 
Sensor 

The  simulation  performed  here  to  test  the  deresonating 
characteristics  of  homomorphic  filtering  involved  the  output  of  a 
resonant  acoustic  emission  sensor  to  a  seismic  surface  pulse.  The 
pulse  used  was  the  Pekeris  solution  [83,84,85,86]  of  a  Lamb  surface 
pulse  and  the  sensor  impulse  response  was  modeled  as  a  decaying 
sinusoid.  Figure  7.9.1  shows  the  Lamb  wave  and  the  sensor  response. 
The  signal  received  from  the  sensor  is  the  convolution  of  these  two 
signals  which  is  shown  in  figure  7.9.2.  Figure  7.9.3  shows  the  spec¬ 
trum  of  the  convolved  response  and  figure  7.9.4  is  the  cepstrum  of 
this  same  signal.  Homomorphic  filtering  the  cepstrum  by  setting  to 
zero  the  segment  of  the  quefrency  which  can  be  attributed  mostly  to 
the  resonant  sensor  response  (the  high  quefrency  section)  and  invert¬ 
ing  the  resulting  cepstrum  results  in  figure  7.9.5  which  as  expected 
resembles  the  Lamb  wave.  Conversely  filtering  out  the  Lamb  wave 
using  this  same  method  leaves  the  resonant  sensor  response  as  shown 
in  figure  7.9.6.  These  individual  responses  could  be  optimized  by 
adjusting  the  cut-off  quefrency  in  the  homomorphic  filtering  step. 
Many  possibilities  exist  for  optimized  signal  energy  level  cut  off 
points  and  tapered  attenuation  near  cut  off  points  rather  than  hard 
attenuation. 

The  nonideal  reconstruction  of  the  pulse  and  ringing  sensor 


signals  is  due  to  the  fact  that  there  is  no  perfect  separation  in 
the  cepstrum  of  the  pulse  and  decaying  oscillations  as  there  had 
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been  between  the  previously  studied  pulses  and  the 
channels  with  discrete  echoes.  The  channel  Is  modeled  as 

h(t)  *  e_t/T  cos  (to  t)  (7.9.1) 

c 

whose  Fourier  transform  is 

.  2 

H(to) - ^ - 5 - r~T~  (7.9.2) 

1  +  2joox  +  (to  -  to 
c 

Taking  the  log  of  eq.  (7.9.2)  yields 

log  [H(to)  ]  *  log  (jtox^)  -  log  (1  +  2jtox  +  (to2  -  (o^)x2)  (7.9.3) 

2  2  2  2 
*  log  (jT  )  +  log  (to)  -  log  (1  +  2jtox  +  (toc  -  (0  )T  ) 

(7.9.4) 

and  the  cepstrum  equals 

H(x)  -  log  (jT2)  <5(t)  +  F  i[log(to)]  +  F  [log  (1  +  2jtox  +  (ioc  -  to  )x  ] 

(7.9.5) 

The  term  F-1[log  (to)  ]  in  (7.9.5)  prevents  the  ideal  sep¬ 
aration  between  the  channel  and  input  pulse  in  this  case  due  to  its 
significant  "DC"  component  which  appears  at  x  *  0  in  the  cepstrum, 
however  as  seen  by  the  results,  this  overlapping  does  not  appear  to 
be  very  severe.  The  approximate  form  of  the  Lamb  wave  used  in  this 
simulation  was  a  logarithm  pulse 


P(t) 


|  -  log10  (1  +  c  -  t) 


0  <  t  <  1 


(7.9.6) 


-  1 


elsewhere 


which  is  difficult  to  analyze  and  could  easily  contain  higher  que- 
frency  components  that  overlap  the  channel  response  and  also  prevent 
separation.  This  is  very  likely  since  the  pulse  shape  maintains  a 
constant  value  over  a  finite  period  of  time  and  therefore  would 
contain  substantial  high  frequency  components.  Calculating  the 
transform  of  the  log  component  by 


1+e 

r  . 


p£(w)  -  j  -  loglQ(-t)  e_^C  dt 


-2.3  log(-t)  e_ju)t  dt 


2.3  |  <-t  -  -y  -  -y  -  ...)  e_:jU,t  dt 


s  2.3 


t  e  dt  +  ... 


and  evaluating  the  first  definite  integral  term  yields 


>2,  -ju> 


P0(oj)  -  2.3(ju>)‘[e  JW(jco  -  1)  -  e"jU)£(ja)e  -  1)]  +  ...  (7.9.11) 


(7.9.7) 


(7.9.8) 


(7.9.9) 


(7. 9. 1C) 


Taking  the  log  of  P^w)  results  in  a  log(w)  term  which  also  appeared 
in  the  log  of  H(u)  for  the  channel.  This  demonstrates  at  least  one 
area  of  overlap  between  the  cepstra  of  the  pulse  and  the  channel. 

Figure  7.9.4  can  be  divided  into  3  separate  regions  for 


further  analysis.  The  first  is  the  pulse  from  the  origin  to  x  ■  100 
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which  contains  the  log  pulse  shape  and  some  discrete  effects  due  to 
the  DFT.  The  second  region  is  that  around  the  negative  pulse  at 
T  *  150.  This  is  due  to  the  resonant  frequency  of  the  transducer. 
The  oscillations  in  the  high  quefrency  segment  form  the  third  region 
and  are  due  to  a  combination  of  the  pulse  shape,  the  decaying  reson¬ 
ant  transducer  response  and  discrete  effects. 

Overall,  the  results  are  very  promising  for  real  and  prac¬ 
tical  dereverberation  applications  where  it  is  desired  to  obtain  an 
input  pulse  shape  from  a  narrow  band  or  resonant  transducer.  More 
work  is  needed  in  this  area  to  determine  optimized  filter  character¬ 
istics  and  the  effect  of  noise  on  this  type  of  signal  processing. 
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Figure  7.9.4  Cepstrum  of  Convolved  Lamb  Wave  and  Sensor 
Response 
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Appendix  B 


Appendix  B 


SIGNAL  PROPAGATION  PHYSICS  IN  A  BOUNDED  ELASTIC  MEDIUM 
AND  THE  INTERPRETATION  OF  ACOUSTIC  EMISSION  SIGNATURES 


B.l  INTRODUCTION 

It  is  possible  to  make  a  physically  meaningful  interpretation  of  an  acoustic  emission 
(AE)  signal  which  has  been  de-reverberated  by  means  of  a  homomorphic  deconvolu¬ 
tion  procedure  employing  cepstral  techniques0  ’  provided  that  the  specimen  ringdown 
transfer  function  Hr  is  a  function  only  of  frequency  a*.  One  may  not  assume  a  priori 
that  this  condition  is  satisfied  when  performing  an  AE  experiment,  however,  because 
in  a  given  specimen  having  a  prescribed  shape,  on  which  the  location  of  a  transducer 
has  been  specified,  the  ringdown  transfer  function  can  be  expected  to  vary  with  the  lo¬ 
cation  within  the  specimen  of  the  events  that  give  rise  to  the  signals  received  by  the 
transducer.  A  further  complication  arises  from  the  fact  that  many  kinds  of  AE  events 
(e.g.,  crack  propagation)  are  directional  in  nature  and  can  be  expected  to  give  rise  to 
directional  acoustic  radiation.  As  a  consequence  the  ringdown  transfer  function  can  be 
expected  to  depend  upon  both  the  orientation  and  the  location  of  an  AE  event  in 
three-dimensional  space. 

While  these  complications  pose  no  particular  problem  to  an  experimenter  when 
both  the  location  and  orientation  of  each  AE  event  are  known,  the  situation  is  quite 
different  when  this  information  is  not  available.  Under  these  circumstances  the  experi¬ 
menter  may  seek  to  justify  his  ignorance  of  the  location  and  orientation  of  a  particular 
AE  event  on  the  grounds  that  lack  of  information  concerning  these  parameters  may 
increase  the  uncertainty  of  the  experimental  estimate  of  the  amplitude  of  the  event, 
but  that  it  leaves  intact  (after  deconvolution)  the  shape  of  the  signature,  which  is 
sufficient  to  identify  the  nature  of  the  event.  His  argument  is  a  valid  one  if  he  can 
show  that  the  acoustic  radiation  pattern  produced  by  the  event  in  question  is  non- 
directional ,  but  if  the  pattern  is  directional  he  cannot  justify  out  of  hand  ignorance  ei¬ 
ther  of  the  position  or  of  the  orientation  of  the  event. 

The  reason  he  cannot  do  this  is  that  in  general  the  directivity  of  the  resulting  pat¬ 
tern  of  acoustic  radiation  will  cause  the  shapes  of  the  event  signatures  transmitted 
along  different  paths  to  be  different.  The  resulting  signal  that  is  received  at  a  given 
transducer  location  will  therefore,  following  de-reverberation  by  means  of  the  cepstral 
method,  be  a  composite  sum  of  the  signatures  radiated  in  all  directions  by  the  event. 
Since  the  relative  weighting  of  each  of  the  component  signatures  in  the  composite  sum 
is  dependent  upon  the  unknown  position  and  orientation  of  the  event  within  the  speci¬ 
men,  the  ability  of  the  experimenter  to  interpret  in  a  physically  meaningful  way  the  in¬ 
formation  contained  in  the  de-reverberated  signal  received  at  a  given  transducer  loca¬ 
tion  may  be  severely  limited.  In  principle  it  is  possible  to  overcome  this  difficulty  by 
employing  a  large  array  of  transducers  extending  over  a  large  fraction  of  the  specimen 
surface,  but  practical  considerations  make  this  an  undesirable  approach,  particularly  in 
those  cases  in  which  the  object  of  the  experiment  is  to  identify  the  nature  of  the  AE 
event  taking  place  without  consideration  of  its  location  or  orientation. 

In  practice  it  will  be  necessary  to  develop  a  set  of  guidelines  for  ascertaining  the 
minimum  number  of  transducers  (and  the  most  favorable  locations  for  them)  that 


B-l  . 


m 


must  be  employed  on  a  given  specimen  if  sufficient  information  is  to  be  obtained  to 
permit  .ccessful  identification  of  AE  events  from  the  transducer  signatures.  In  the 
process,  attention  must  be  paid  to  the  physics  of  wave  propagation,  both  within  and 
along  the  surfaces  of  a  specimen  of  given  shape,  in  order  that  a  suitable  combination 
of  analytical  and  computational  techniques  can  be  set  up  from  which  these  guidelines 
can  be  obtained.  With  this  end  in  mind,  preliminary  efforts  have  been  undertaken  at 
the  RPI  Laboratory  for  Noise  Control  Research  for  the  purpose  of  examining  the 
physics  of  wave  propagation  and  the  suitability  of  various  techniques  described  in  the 
literature  for  analyzing  wave  propagation  in  bounded  and  unbounded  elastic  media. 
This  report  summarizes  these  activities. 

B.2  WAVE  PROPAGATION  IN  AN  ELASTIC  MEDIUM 


In  an  elastic  medium  the  equation  of  motion  and  Hooke’s  law  combine  to  produce 
the  well-known  equation 


fi  V2u  +  (A +fi)  V  (  V-u  ) 


B2u 


(1) 


where  u  is  the  particle  displacement,  A  and  p.  are  Lame’s  constants,  and  p  is  the  mass 
density  of  the  medium.  It  is  customary  in  analysis  of  wave  propagation  to  neglect  the 
effects  of  mechanical  dissipation,  and  this  neglect  is  reflected  in  the  form  of  (1),  which 
contains  no  dissipative  (i.e.,  first-order  time  derivative  of  m)  term.  Equation  (1)  is 
readily  transformed  into  a  scalar  and  a  vector  wave  equation  if  one  writes  u  in  terms 
of  a  scalar  potential  <t>  and  a  vector  potential  0  according  to  the  relation 

w  =  —  V0  +  VX0  (2) 


Substitution  of  (2)  into  (1)  yields  a  result  that  is  separable  into  a  scalar  wave  equation 

v!*  -  O) 

and  a  vector  wave  equation 

c/  V20  -  (4) 

Here  c2  —  (\+2p)/p  and  c2  «  p/ p  are  the  squares  of  the  respective  plane-wave  prop¬ 
agation  speeds  (assuming  the  medium  is  unbounded)  of  the  0-wave  and  the  0-wave 
(referred  to  in  geophysics  as  the  p- wave  and  the  s-wave).  The  separation  of  (1)  in 
this  manner  is  well-known  in  the  literature,  where  it  is  referred  to  as  the  Helmholtz 
Decomposition  Theorem. 

The  simple  picture  presented  by  equations  (3)  and  (4)  is  transformed  into  one  of 
monumental  complexity  when  boundaries  are  introduced,  since  multiple  reflections 
will  generate  an  elaborate  pattern  of  vibrations  even  when  only  a  single  source  is 
present.  For  example,  the  interactions  of  p-  and  s-waves  with  a  single  plane  surface 
in  an  otherwise  infinite  elastic  medium  will  produce  Rayleigh  waves'21  which  move 
along  the  surface  and  are  nondispersive  in  character.  If  the  medium  is  inhomogenious 
or  the  boundary  is  loaded  mechanically  by  another  medium,  even  more  complicated 
phenomena  such  as  Love  waves'3'41  may  be  produced.  Analysis  of  the  motion  of  the 
boundary  has  long  been  a  part  of  geophysics  and  seismology,  but  early  work  such  as 
that  of  Lamb'51  were  of  necessity  restricted  to  comparatively  simple  cases.  More  re¬ 
cent  work  in  this  area  has  sought  to  integrate  the  analysis  of  fairly  elaborate  models  of 
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the  interior  of  the  earth— see,  for  example,  Aki  and  Richards<6)  and  Ben-Menachem  et 
al(7)— with  sophisticated  methods  of  signature  analysis  such  as  are  described  by  Robin¬ 
son  and  Treitel(8)  and  Webster. <9) 

In  contrast  to  the  direction  taken  by  geophysics  and  seismology,  the  literature  of 
acoustic  emission  as  applied  to  nondestructive  testing  (NDT)  techniques  has  to  a  great 
extent  been  limited  to  the  practical  problems  posed  by  the  response  characteristics  of 
transducers  and  the  presence  of  background  noise.  Typical  examples  of  the  literature 
concerned  with  transducers  are  given  in  the  literature,  (10-12)  as  are  descriptions  of  the 
methodology  of  NDT  involving  acoustic  emission/13-15*  Some  work  involving  the 
methodology  employed  in  geophysics  and  seismology,  described  above,  has  been 
done,(16,17)  but  it  is  significant  that  as  recently  as  1980  Eisenblatter08*  observed  that 
the  current  practice  in  NDT,  insofar  as  AE  signature  analysis  was  concerned,  took  lit¬ 
tle  or  no  cognizance  of  the  role  played  by  the  directional  acoustic  radiation  pattern  of 
an  event.  More  recent  efforts  have  addressed  the  problem  of  directivity,  e.g.,  the 
work  of  Ceranoglu  and  Pao(19)  which  treats  acoustic  emission  arising  from  directional- 
source  models  of  acoustic  emission  events  such  as  concentrated  forces  or  couples. 

The  propagation  of  acoustic  vibrations  through  an  elastic  solid  has  long  been  a  sub¬ 
ject  of  study,  being  discussed  in  a  major  work  by  Love(20)  as  far  back  as  1892.  A 
more  modern  treatise  of  considerable  importance  is  the  work  of  Mindlin,(21)  which 
deals  extensively  with  the  vibration  of  plates  from  the  standpoint  of  modal  analysis. 
This  approach  has  been  used  by  Weaver  and  Pao(22)  to  assess  the  response  of  a  plate 
to  a  time-varying  point  load.  Another  method  of  analysis,  especially  useful  when 
studying  the  transient  propagation  of  acoustic  radiation  through  an  elastic  solid,  is  the 
so-called  generalized  ray  theory  (see  Pao(23)  for  a  recent  treatment  of  this  subject). 
Both  of  these  approaches  have  their  strong  points  and  their  weak  points,  and  one  of 
the  tasks  of  the  work  described  in  this  report  was  a  cursory  examination  of  both  ap¬ 
proaches,  in  light  of  these  strengths  and  weaknesses,  in  order  to  assess  on  a  compara¬ 
tive  basis  their  suitability  as  tools  for  evaluating  the  ringdown  transfer  function  Hr. 

B.3  MODAL  ANALYSIS 

Of  the  two  approaches  for  analyzing  wave  propagation  mentioned  in  the  previous 
section,  the  one  which  was  developed  earliest  was  that  involving  modal  analysis.  The 
method  of  Weaver  and  Pao(22)  for  axisymmetric  waves  in  a  uniform  plate  of  constant 
thickness  2 h  was  examined,  and  the  results  of  that  examination  are  contained  in 
Appendix  A.  In  essence,  the  method  involves  the  summation  of  a  set  of  normalized 
modes,  multiplied  by  constants  so  chosen  that  the  summation  yields  the  axisymmetric 
response  of  a  plate  to  a  concentrated  force  of  magnitude  Q0  applied  in  the  z 
direction— i.e.,  perpendicular  to  the  parallel  surfaces  of  the  plate— a  distance  z0  from 
the  midplane  of  the  plate  cross  section  (see  Figure  1  for  details  of  the  coordinate  sys¬ 
tem). 


The  timewise  behavior  of  the  force  is  taken  to  be  that  of  a  step  function  //(f),  and 
in  Weaver  and  Pao(22)  the  particle  displacement  u  is  shown  to  be  given  by 
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Figure  1.  Axisymmetric  force  in  a  thick  plate 

where  k  is  the  wave  number  and  fm  is  a  modal  weighting  factor  given  by 

fm(zoK)  -  (?o  k2  [2am  pm  sin  pmh  cos  a„z0  (6) 

+  ( k 2  -  pi  )  sin  amh  cos  pmz0  ) 

if  m  =  1,3,5,...,  and  by 

fm^QK)  -  Qo  K2  [  2am  pm  cos  P mh  sin  amz0  (7) 

+  (  k2  -  pi)  cos  amh  sin  pmz0  ] 

if  m  —  2,4,6,...,  while  the  r -component  Um  and  the  z -component  Wm  of  the  mth  mode 
shape  are  given  respectively  by 

Um  -  pm  [  2k2  sin  pm  h  sin  otmz  (8) 

-  (  k2  -  pi  )  sin  amh  sin  pmz  ]  k  J'0(i<r) 
and 

wm  -  k2  (  2am0 m  sin  pmh  cos  amz  (9) 

+  (  K2  -  pi  )  sin  a mh  cos  pmz  ]  J0Ur) 
when  m  =  l,3,5,.„,  and 

Um  -  Pm  [ -2k2  cos  pmh  COS  amz  (10) 

+  (  K2  -  pi  )  cos  amh  cos  pmz  ]  K  ,7o Ur) 


wm  “  *  l  2am/3m  cos  /3mh  sin  amz 


(11) 


+  (  k1  -  fil  )  cos  amh  sin  /3mz  ]  J0(nr) 

when  m  —  2,4,6,...  Here  Jq  and  J'q  denote  the  zeroth-order  Bessel  function  of  the  first 
kind  and  its  derivative,  respectively,  while  wm  is  related  to  am  and  Bm  by  the  expres¬ 
sions 

«i  -  otifcp  -  k2  (12) 

and 

Pi  -  «£/ C2  ~  K2  (13) 

and,  for  a  given  value  of  k,  u>m  is  the  m  th  root  of  the  transcendental  dispersion  equa¬ 
tion 

0  —  (  k2  -  f}2  )2  oos  ah  sin/3/i  (14) 

+  4«j8k2  cos  f3h  sinah 

with  a2  —  at2/ c2  —  k 2  Land  B2  —  at2/c2  —  k2.  The  quantity  Mm  given  by 

Mm  “  2p  |  B2[uih/c2  +  (a2„  -  k2  )  sin  2 amh  /  2am  ]  (15) 


+  C2k 2  [  <u2h/c2  -  (  pi  -  k2  )  sin  2f3mh  /  2/3m  ] 


+  4 BmCmK2  sin  amh  cos  pmh 


/k 


when  m- 1,3,5,...,  and  by 


Mm-2p 


Am l  0>lh/c2  -  (  a2m  -  K2  )  sin  2 amh  /  2am  ] 


(16) 


+  D2k2  [  (oih/c2  +  (  ft2  -  k2  )  sin  2/3 „h  /  2B„  ] 


+  *AmDmK2  cos  a„h  sin  fimh\ 


\/k 


when  m  —  2,4,6,...,  serves  to  normalize  the  mode  shapes.  Here 
Am  -  -2k2 $m  cos  B mh 

Bm  -  2k2 Bm  COS  Bm  h 

Cm  -  (  «2  -  02)  sin  amh 

Dm  -  (k2  -  Bl)  COS  a„h 


(17) 
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Though  mathematically  very  complex,  such  a  modal  analysis  has  the  advantage  that 
an  explicit  functional  relation  can  be  derived  once  the  mode  shapes  have  been  estab¬ 
lished  for  a  given  set  of  boundary  conditions,  and  for  those  cases  in  which  the  mode 
shapes  can  be  established  in  this  fashion  some  very  real  savings  in  computer  time 
should  be  possible.  Weaver  and  Pao<22)  point  out  that  by  using  the  dispersion  relation 
(14)  to  change  the  variable  of  integration  from  k  to  w,  use  can  be  made  of  fast 
Fourier  transform  (FFT)  techniques  to  economize  on  computer  time  when  evaluating 
the  integral  in  (5).  Computer  programs,  listed  in  Appendix  A,  were  written  to  assess 
the  feasibility  of  this  approach  by  solving  some  of  the  examples  given  in  Weaver  and 
Pao(22)  and  comparing  the  computed  results  with  those  described  in  this  reference. 
Because  of  problems  caused  by  lack  of  computational  accuracy,  and  in  view  of  the  lim¬ 
ited  budget  allowance  for  computer  time,  it  was  not  possible  to  do  more  than  show 
qualitative  agreement  between  the  computed  results  and  those  described  in  Weaver 
and  Pao.(22)  Nevertheless  it  is  believed  that  with  computational  refinements  the 
method  of  modal  analysis  represents  a  feasible  approach  for  handling  acoustic  emission 
wave  propagation  problems  in  those  circumstances  in  which  the  mode  shapes  are  easily 
obtainable. 


B.4  GENERALIZED  RAY  METHOD 

In  contrast  to  the  method  of  modal  analysis,  the  generalized  ray  theory  requires  no 
prior  knowledge  of  functions  like  mode  shapes,  which  are  peculiar  to  a  given  boundary 
geometry,  and  can  be  used  with  the  same  facility  whether  the  source  is  directional  or 
nondirectional.  Its  application,  hereafter  referred  to  as  the  generalized  ray  method,  re¬ 
quires  that  one  know  all  the  paths  along  which  a  disturbance  may  travel  and  still  arrive 
(within  some  finite  time)  at  the  point  where  a  transducer  is  located.  This  information 
is  obtained  by  constructing  paths,  or  “rays”  that  start  out  from  the  source  and  then 
interact  repeatedly  with  the  boundaries  of  the  elastic  medium,  with  the  interactions 
giving  rise  to  reflections  back  into  the  medium  and  transmissions  into  a  second  medi¬ 
um,  if  one  is  in  contact  with  the  boundary. 

Each  time  a  ray  intersects  with  a  boundary,  two  rays  will  be  reflected  back  into  the 
medium  and  two  more  will  transmitted  into  the  second  medium,  if  one  is  present. 
The  reason  for  the  doubling  of  rays  is  that  each  incident  ray,  representing  the  path  of 
either  a  p-wave  or  an  s-wave,  will  produce  both  a  p-wave  and  an  s-wave  that  are 
reflected  back  into  the  medium  as  well  as  a  similar  pair  of  waves  that  are  transmitted  if 
a  second  medium  is  in  contact  with  the  boundary.  In  this  work  it  is  assumed  for  the 
sake  of  simplicity  that  no  second  medium  exists,  so  that  only  reflected  waves  are 
present.  Also,  for  the  same  reason  and  to  permit  future  comparison  with  the  modal 
analysis  method  described  in  the  previous  section,  only  axisymmetric  wave  patterns  in 
a  uniform  plate  due  to  a  concentrated  force  applied  to  the  upper  plate  surface  are  con¬ 
sidered. 


Under  the  above  circumstances  the  r-  and  2 -components  ur  and  w:,  respectively,  of 
the  particle  displacement  ~u  are  given  by 

d<t>  _  d2\j> 
dr  drdz 
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where  0  and  cs  are  as  described  in  the  beginning  of  Section  B.2.  Only  the  0- 
component  of  the  vector  potential  0  is  nonzero,  and  this  component  has  been  set 
equal  to  minus  the  partial  derivative  of  the  scalar  0  appearing  in  the  above  equations. 
Both  0  and  0  will  be  functions  of  r,  z,  and  t,  and  both  will  satisfy  scalar  wave 
equations -equation  (3)  for  0  and 

c2  (19) 

for  0.  In  both  equations,  V  denotes  the  differential  operation  d2/dr2  +  (1  /r)b/Br. 

The  wave  equations  can  be  changed  from  partial  differential  to  linear  algebraic 
forms  by  means  of  a  Laplace  and  a  Hankel  transform.  If  the  inverse  Hankel 
transform  is  then  applied  to  the  solutions  of  these  linear  equations,  the  results  are  as 
follows: 

oo 
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Here  <I>  and  ¥  are  the  Laplace  transforms  of  0  and  0,  respectively,  £r  is  the  Hankel 
transform  variable  analogous  to  the  Laplace  transform  variable  s,  and  £  and  tj  are 
defined  by  the  relations 

£  -  if  +  cf2)1/2  (22) 

7)  -  (£2  +  c~2)1/2 


For  a  concentrated  force  fit)  normal  to  the  plate  surface  at  z— 0  (see  Figure  2)  the 
functions  T,  Sp,  and  Sv  are  (cf.  reference  23)  as  follows: 
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where  F(s)  is  the  Laplace  transform  of  fit)  and 

A,(£)  -  4i7££2  -  (£2  +  £2)2 


Equations  (20)  and  (21)  apply  in  the  form  shown  only  if  the  chosen  path  between 
source  and  transducer  does  not  intersect  any  boundary.  If  the  path  does  encounter  a 
boundary,  a  pair  of  reflected  waves  will  be  generated  whose  magnitude  and  phase  are 
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Figure  2.  Line  end  point  sources 

related  to  the  incident  wave  by  reflection  coefficients  Rpp ,  Rs\  Rps ,  and  Rsp ,  the  ex¬ 
pressions  for  which  are  shown  in  reference  23  to  be 

Rpp  -  [4tK£2  +  (f2  +  £2)2]  /  A ,  (24) 

if  both  the  incident  and  the  reflected  wave  are  p- waves, 

Ru  -  [4t,££2  +  (£2  +  ;2)2]  /  A,  (25) 

if  both  the  incident  and  the  reflected  waves  are  s -waves, 

Rps  -  ±4£t,  (£2  +  C2)  /  A,  (26) 

if  the  incident  wave  is  a  p- wave  and  the  reflected  wave  is  an  s-wave,  and 

-  ±4££  (£2  +  £2)  /  A,  (27) 

if  the  incident  wave  is  an  s-wave  and  the  reflected  wave  is  a  p- wave.  Note  that  when 
the  incident  and  reflected  waves  are  of  the  same  type  the  reflection  coefficients  Rpp 
and  Rss  are  equal  to  each  other.  The  positive  sign  is  used  in  equations  (26)  and  (27) 
when  the  wave  propagates  in  the  positive  z  direction,  and  the  negative  sign  is  used 
when  the  wave  propagates  in  the  negative  z  direction. 

The  first  step  in  the  application  of  the  generalized  ray  method  to  the  propagation  in 
a  uniform  plate  of  axisymmetric  waves  arising  from  a  point  source  consists  of  the  con¬ 
struction  of  a  set  of  zig-zag  paths  in  the  rz  plane,  each  of  which  starts  at  the  source  lo¬ 
cation  and  passes  through  the  position  of  the  transducer.  A  change  of  direction  occurs 
every  time  the  path  encounters  the  top  or  the  bottom  surface  of  the  plate,  with  the  an¬ 
gle  e,  of  the  incident  path  segment  being  related  to  the  angle  tr  of  the  reflected  path 
segment  (the  angles  being  measured,  in  each  case,  between  the  segment  in  question 
and  the  line  normal  to  the  surface  of  the  plate  and  directed  toward  its  interior) 
through  Snell's  law.  Thus,  if  the  incident  and  the  reflected  wave  are  both  of  the  same 
type  e,  -  er,  whereas  if  the  incident  wave  is  an  s-wave  and  the  reflected  wave  is  a  p- 
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«,  -  sin  1  (  ( cjcp )  sin  «,  I 

while  if  the  incident  wave  is  a  p- wave  and  the  reflected  wave  is  an  s-wave 

tr  -  sin-1  [  ( cp/c5 )  sin  «,  ] 

Note,  however,  that  if  e,  is  greater  than  sin-1  ( cjcp )  it  is  impossible  for  an  incident  p- 
wave  to  give  rise  to  a  reflected  s-wave. 


v-w.*.,  • 
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The  process  of  establishing  each  zig-zag  path  is  one  of  trial-and-error  that  begins 
with  an  arbitrary  selection  of  a  wave  type  { p-  or  s-wave)  at  an  arbitrary  path  orienta¬ 
tion  in  the  rz  plane  and  then  proceeds  to  follow  this  path.  If  the  path  is  so  orientated 
as  to  pass  directly  through  the  location  of  the  transducer,  the  process  is  completed 
when  the  path  has  been  followed  to  the  transducer.  If  the  path  is  not  so  oriented,  one 
follows  it  until  it  reaches  the  plate  surface.  There  one  establishes,  in  accordance  with 
the  conditions  outlined  in  the  preceding  paragraph,  the  path  directions  of  each  of  the 
reflected  waves  that  would  arise  in  response  to  the  arrival  at  the  plate  surface  of  the 
wave  being  followed,  and  then  follows  each  of  these  reflected  paths  until  it  encounters 
either  the  transducer  or  the  other  plate  boundary.  If  the  other  boundary  is  encoun¬ 
tered  the  above  procedure  is  repeated. 

Thus  a  single  original  path  branches  into  two  after  the  first  reflection,  four  after  the 
second,  etc.,  and  each  of  these  must  be  checked  to  see  if  it  encounters  the  transducer 
location.  After  all  paths  within  this  set  (if  any)  that  pass  through  the  transducer  loca¬ 
tion  have  been  identified,  the  entire  operation  is  repeated,  either  with  a  different  type 
of  wave  starting  from  the  source  along  the  same  path  as  before  or  with  the  same  type 
of  wave  traveling  along  another  path  with  a  different  orientation.  To  simplify  calcula¬ 
tions,  those  paths  that  can  only  reach  the  transducer  location  after  a  very  large  number 
of  reflections  are  usually  discarded,  since  their  contribution  is  generally  small  com¬ 
pared  to  that  from  a  directly  radiated  signal  or  one  subject  to  only  a  few  reflections. 

In  the  case  under  discussion  here,  namely  axisymmetric  wave  propagation  in  a  uni¬ 
form  plate  with  the  source  located  at  r-0  on  the  upper  surface,  paths  containing  small 
numbers  of  reflections  are  associated  with  initial  waves  that  leave  the  source  at  shallow 
angles  with  respect  to  the  plate  surfaces.  As  the  angle  with  respect  to  the  plate  sur¬ 
faces  of  the  initial  wave  is  increased,  the  number  of  reflections  required  for  the  path  to 
encounter  the  transducer  location  will  increase.  Because,  with  the  exception  of  the 
case  where  an  incident  />-wave  gives  rise  only  to  a  reflected  p- wave,  each  reflected 
path  segment  carries  less  energy  than  did  the  incident  path  element  that  gave  rise  to  it 
(the  remaining  energy  being  transferred  to  the  other  reflected  wave)  the  amplitude  of 
the  disturbance  that  is  transmitted  to  the  transducer  location  along  a  given  path  will 
decrease  as  the  number  of  reflections  in  the  path  increases.  In  addition  —  because  the 
path  length  increases  with  the  number  of  reflections— as  the  angle  between  the  initial 
wave  and  the  plate  surfaces  is  increased,  the  time  required  for  a  disturbance  to  be 
transmitted  along  the  given  path  from  the  source  to  the  transducer  will  increase. 

B.5  RAY  INTEGRAL  EVALUATION 

Once  all  of  the  zig-zag  paths  from  the  source  to  the  receiver  have  been  determined 
the  Laplace  transformed  potentials  and  ¥  can  be  inverted.  The  expressions  for 
these  given  in  equations  (20)  and  (21)  apply,  as  has  already  been  observed,  only  for  a 
reflection-free  path,  but  this  restriction  poses  no  problems  when  reflections  are 
present.  The  equations  will  still  hold  for  each  segment  of  a  given  path,  but  in  every 
segment  (except  the  first  one)  the  magnitude  and  phase  of  the  integrand  will  be 
affected  by  the  reflections  and  distances  traversed  in  all  of  the  preceding  segments  of 
that  path.  Also,  as  one  goes  from  one  path  segment  to  the  next  the  type  of  wave  be¬ 
ing  followed  can  change  and,  in  particular,  the  type  of  wave  that  arrives  at  the  trans¬ 
ducer  location  via  the  final  path  segment  may  not  be  the  same  as  that  which  started 
out  from  the  source  along  the  initial  segment.  As  a  result,  when  the  path  has  been 
followed  from  source  to  receiver  the  equations  will  assume  the  following  forms  at  the 
receiver  location: 


(28) 


1 >(r,Z,s)  -  s2  J  Kp(f)  F(s)  Sp(f)  e~Sr>z  J0(s^r)  t  d£ 


if  the  final  path  segment  is  a  p-wave,  and 

V(r,Z,s)  -  s2  f  KM)  SM)  e~^z  J0(s^r)  £  d£  (29) 

if  the  final  path  segment  *s  an  s-wave.  Here  Kp  is  the  product  of  the  reflection 
coefficients  at  all  the  points  where  the  path  whose  final  segment  is  a  p- wave  encoun¬ 
tered  plate  boundaries,  Ks  is  the  equivalent  quantity  for  the  path  whose  final  segment 
is  an  s-wave,  and  Z  is  the  sum  of  the  absolute  magnitudes  of  the  z -components  of 
the  displacement  of  all  of  the  path  segments.  (For  the  case  being  discussed,  in  which 
the  source  lies  on  the  upper  plate  surface,  Z  will  always  be  an  integral  number  of  plate 
thicknesses.)  Because  they  incorporate  the  effects  of  all  the  reflections  encountered  in 
following  the  path,  or  “ray”  from  source  to  transducer,  the  integrals  in  (28)  and  (29) 
and  all  subsequent  transformations  of  them  will  be  referred  to  as  ray  integrals. 

As  a  first  step  in  the  inversion  process  for  $  and  ¥,  an  integral  form  for  the  Bessel 
function  J0, 

ir/2 
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is  substituted  into  (28)  and  (29).  As  a  result  these  equations  are  transformed,  after 
some  rearrangement,  into 

2  */2 
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The  substitution  of  (33)  into  (31)  and  (32)  gives  the  latter  equations  a  form  that  is  ad¬ 
vantageous  when  obtaining  the  inverse  Laplace  transform  of  4>  and  V.  This  is  be- 
causejby  changing  the  variable  of  integration  in  (33)  the  inverse  Laplace  transforms  of 
7X  —  /4  can  be  made  obtainable  by  inspection,  and  once  this  is  accomplished  the  in¬ 
verse  Laplace  transforms  of  <I>  and  are  easily  determined  by  means  of  the  convolu¬ 
tion  theorem. 

The  inversion  process  outlined  above,  generally  known  as  Cagniard’s  method, 1241 
begins  by  setting  the  time  t  equal  to  the  coefficient  of  s  in  each  integral  and  making  t 
the  variable  of  integration.  The  result  is 

oo 

7,(r,Z,s,«)  -  J  £„(*,)  S,(f,)  e-«  ~~  dt  (34) 


72(r,r,s,a>)  -  f  *,(f2)  S,(f2) 

Z/c. 


Vf2>  $,tt2> <* 


7,(r,Z,s,o,)  -  M«)>  * 


/•  (£4)  d  f  4 

74(r,Z,s,a>)  -  -5-  Sv(*4)  <Tsf  dt 


-  { ±  I  (tr  cos  w  )2  -  (t^cos2^  -  Z2)(f2-Zc/,  2)  ]1/2 

-  tr  cos  oj  }/ (r2 cos2cu  —  r2) 

£2  —  {±  [  (tr  cos  <0  )2  -  (r2cos2w  -  Z2)(r2-Zc~2)  )l/ 2 
+  tr  cos  a»  )/(r2cos2a>  -  z2) 

(3  —  {±(  (/r  cos  a>  )2  -  (/^cos2^  -  Z2)(f2-Zc“2)  ]l/2 

-  tr  cos  <d  }/(r2cos2cu  -  r2) 

|4  —  {±[  (tr  cos  tu  )2  -  (r2cos2w  -  Z2)(t2-Zc~2)  ]l/2 
+  tr  cos  a>  }/(r2cos2w  -  r2) 


Vv.yi\v.v.v .V . 


4*  /  .*  /  •  ~ 


1 


dt  i 

ztx 

a 

dt 

(£i2+ 

. 

a 2__ 

Ztx 

•V 

dt 

(«?+  c2V'2 

■ 

Ztx 

dt 

itfr  cs2)'/2 

dt  4 

Ztx 

‘JS 

dt 

ith  c2v>2 

-  r  cos  (o 


+  r  cos  <ii 


-  r  cos  w 


4-  r  COS  at 


With  these  substitutions  the  inverse  Laplace  transforms  of  Ix  -  /4  are  found  by  in¬ 
spection  to  be  given  by 

I\(r,Z,t,(o)  -  %(£,)  S„(£,)  ^  u[t—(Z/ cp)]  (37) 

/2(r,z,r,w)  -  K,(f2)  Sp(t2)  u[t-(Z/cp)] 
h^r ,Z,t,u)  -  Zp((3)  W  -^-  u[t-(Z/cs )] 

IA(r,Z,t,co)  -  *p(*4)  Sp{U)  ^jj-  u[t-(Z/cs)) 

Now  that  the  inverse  Laplace  transforms  are  known  the  integrals  in  (31)  and  (32) 
can  be  evaluated  numerically.  The  inverse  Laplace  transforms  of  the  quantities  out¬ 
side  the  integral  signs  are  ( \/n)d2f/dt  in  the  case  of  (31)  and  — (1  /ir)d2f/dt  in  the 
case  of  (32),  where  fit)  is  the  time-dependent  value  of  the  applied  force.  The  poten¬ 
tials  <l>  and  ¥  can  then  be  found  by  convolving  these  quantities  with  the  correspond¬ 
ing  integrals. 

B.6  CONCLUSIONS 

The  preceding  sections  summarize  two  methods  for  mathematically  modeling  the 
physics  of  wave  propagation  as  applied  to  the  case  of  axisymmetric  acoustic  distur¬ 
bances  in  an  elastic  plate.  The  generalized  ray  method  has  the  advantage  of  greater 
flexibility,  and  it  was  intended  that  computer  programs  would  be  written  to  implement 
this  method  with  the  initial  testing  of  the  programs  being  carried  out  to  simulate  the 
response  to  a  Pen  tel  lead-break  impulse  such  as  that  described  in  reference  1.  The 
simplest  case  considered  would  be  the  plate  of  infinite  thickness,  the  response  of 
which  was  derived  by  Pekeris(25)  and  is  shown  in  Figure  3,  since  this  would  permit 
comparison  of  the  numerical  results  obtained  from  the  programs.  Further  testing 
could  then  be  performed  by  comparing  the  calculations  for  a  plate  of  finite  thickness 
with  those  obtained  by  the  method  of  Weaver  and  Pao(22)  described  in  Section  B.3, 
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TIME  (ps) 

Figure  3.  The  seismic  surface  pulse  according  to  Perkeris;(2S> 
input,  point-force-step  function 

after  which  the  task  of  modifying  the  programs  to  include  unsymmetrical  sources 
would  begin. 

The  problems  that  exist  with  respect  to  implementation  of  the  modal  analysis 
method  have  already  been  discussed  and  need  not  be  repeated  here.  Suffice  it  to  say 
that  the  primary  one  is  the  cost  of  the  computer  time  necessary  to  generate  data.  It 
was  surmised  that  the  problem  would  be  faced  in  implementing  the  generalized  ray 
method,  and  personal  communication  with  Y.S.  Pao  disclosed  that  over  distances 
greater  than  a  few  plate  thicknesses  the  number  of  ray  integrals  that  would  have  to  be 
evaluated  would  be  unmanageable  with  any  but  the  most  powerful  of  the  computers 
currently  in  operation.  One  possible  avenue  of  escape  from  this  dilemma  would  be  to 
use  the  generalized  ray  method  in  the  region  near  the  source  where  the  number  of  ray 
integrals  to  be  evaluated  is  not  excessive,  and  then  let  the  solution  obtained  in  this 
manner  act  as  the  source  in  a  modal  analysis  algorithm. 
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